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

procedure TForm1.FormCreate(Sender: TObject);
begin
Keys;
with TRegistry.Create do begin
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Test\', True);
  if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) or if not (ReadString('Check')=Ka) and (ReadString('Go')=Sa) then begin
     ShowMessage('Bitte Registrieren Sie dieses Programm!Eine Datei zum registrieren liegt bei');
     timer11.Enabled :=true;
   end;
  finally
    Free;
  end;

end;					

1:
2:
3:

 timer11.Enabled :=true;
   end;
  finally					

1:

if not ReadString('bla')=sa//oder sonstwas;)//