Probleme mit Regedit und Form öffnen!!

[thomasdrewermann]

Also nochmal :

Code:

procedure TForm1.FormCreate(Sender: TObject);

var OK: Boolean;
reg:tregistry;
a:integer;
serial:string;
begin
  REG := TRegistry.Create;
  try
    try
      REG.RootKey := HKEY_CURRENT_USER;
      if REG.OpenKey('\Software\SELF', True) then
       begin
        if REG.ValueExists('CODE??') then a:=StrToInt(REG.ReadString('CODE??'))
        else a := 0;
        REG.CloseKey;
      end;
    except
       a := 0;
    end;
  finally
    REG.Free;
    if a=0 then
      begin
      serial:=inputbox('Seriennummer','Bitte geben sie ihre Seriennummer ein:','1234-1324-234');
      if serial ='' then
        application.Terminate else
        begin
        if CheckCode(serial,25, 7)=true then
          begin
          reg:=tregistry.Create;
          reg.RootKey:=HKEY_CURRENT_USER;
          if reg.OpenKey('\Software\SELF',True) then
            begin
            reg.WriteString('CODE??',serial);
            reg.free;
            end;
          end;
        end;
      end else
        begin
        if CheckCode(inttostr(a),25, 7)= false then
          begin
          serial:=inputbox('Seriennummer','Bitte geben sie ihre Seriennummer ein:','1234-1324-234');
          if serial ='' then
          application.Terminate else
            begin
            if CheckCode(serial,25, 7)=true then
              begin
              reg:=tregistry.Create;
              reg.RootKey:=HKEY_CURRENT_USER;
              if reg.OpenKey('\Software\SELF',True) then
                begin
                reg.WriteString('CODE??',serial);
                reg.free;
                end;
              end else    application.Terminate;
            end;
          end;
        end;
      end;
end;