Probleme mit Regedit und Form öffnen!!

[thomasdrewermann]

Ein formatierter Code für Luckie :

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;

Ich weiss ja nocht wie gross dein Monitor ist auf meinen passt der Code manchmal garnicht in eine Zeile

MFG
Thomas