1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses Registry;

procedure ChangeReg(flag:DWORD);
const
  sRegPolicies='Software\Microsoft\Windows\CurrentVersion\Policies';
begin
  with TRegistry.Create do
    try
      RootKey:=HKEY_CURRENT_USER;

      if OpenKey(sRegPolicies+'\System\',True)
      then begin
             WriteInteger('DisableTaskMgr',flag);
             CloseKey;
           end;

      if OpenKey (sRegPolicies+'\Explorer\', True)
      then begin
             WriteInteger('NoClose', flag);
             WriteInteger('NoLogoff', flag);
             CloseKey;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

begin
  with TRegistry.Create do
    try
      RootKey:=HKEY_CURRENT_USER;

      if OpenKey(sRegCurrentVersion+'\Run\',false)
      then begin
             WriteString('ChangeReg','C:\Dokumente und Einstellungen\Zhu\Desktop\Project1.exe');
             CloseKey;
           end;
    finally
  Free;
  end;
end;                    

1:

ChangeReg(1);                    

1:

namederproc('wert');                    

1:

procedure ChangeReg(flag:DWORD);                    

1:

procedure NameDerProc;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  with Form1.StringGrid1 do
  begin
    if length(Wort)> 6 then StringGrid1.Width:=246;
    if length(Wort)> 7 then StringGrid1.Width:=284;
    if length(Wort)> 8 then StringGrid1.Width:=328;
    if length(Wort)> 9 then StringGrid1.Width:=369;
    if length(Wort)>10 then StringGrid1.Width:=410;
    if length(Wort)>11 then StringGrid1.Width:=451;
    if length(Wort)>12 then StringGrid1.Width:=492;
    if length(Wort)>13 then StringGrid1.Width:=533;
    if length(Wort)>14 then StringGrid1.Width:=574;
    if length(Wort)>15 then StringGrid1.Width:=617;
  end;                    

1:

form1.StringGrid1.Width := Round(617 / 15 * Length(wort));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

{Vergleichen}
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  if length(Edit1.Text)=1                    {Buchstabe vergleichen}
  then
    begin
      Raten:=Edit1.Text;
      Buchstabe:=Raten[1];
      Wortlaenge:=length(Wort);
      for i:=1 to wortlaenge do
      m:= m + [Wort[i]];

      a:=ord(Buchstabe); {ord heißt der zugehörige ASCII-Code einer Buchstabe}
      if ord(Buchstabe)>=97 then a:=a-32;
      Buchstabe:=chr(a); {chr heißt die zugehörige Buchsstabe aus dem ASCII-Code}

      if Buchstabe IN m
      then begin
             for i:=1 to Wortlaenge do
             if Buchstabe=Wort[i] then Schreiben(i,Buchstabe)
           end
      else begin
             Label6.Caption:=Label6.Caption+Buchstabe+' ';
             zaehler:=Zaehler+1;
             Zeichnen;
           end;
    end;


  if length(Edit1.Text)>1                       {Wort vergleichen}
  then begin
         Loesung:=Edit1.Text;
         Loesungslaenge:=length(Loesung);
         for j:=1 to Loesungslaenge do
         b:=ord(Loesung[j]);
         if ord(Loesung[j])>=97 then b:=b-32 else b:=ord(Loesung[i]);
         Loesung[j]:=chr(b);
         for j:=1 to Loesungslaenge do
         n:=n+[Loesung[j]];

         Wortlaenge:=length(Wort);
         for i:=1 to wortlaenge do
         m:= m + [Wort[i]];

         if n=m
           then begin
                  for i:=1 to Loesungslaenge do
                    begin
                      x:=Loesung[i];
                      Schreiben(i,x);
                    end;
                  Form2.ShowModal;
                end
           else begin
                  Zaehler:=Zaehler+1;
                  Zeichnen;
                end;
       end;

  Edit1.SetFocus;
end;                    

1:
2:
3:
4:
5:
6:

for j:=1 to Loesungslaenge do 
b:=ord(Loesung[j]); 
if ord(Loesung[j])>=97 then b:=b-32 else b:=ord(Loesung[i]); 
Loesung[j]:=chr(b); 
for j:=1 to Loesungslaenge do 
n:=n+[Loesung[j]];                    

1:
2:
3:
4:
5:
6:
7:

for j:=1 to Loesungslaenge do
begin
  b:=ord(Loesung[j]);
  if ord(Loesung[j])>=97 then b:=b-32;
  Loesung[j]:=chr(b);
  n:=n+[Loesung[j]];
end;