Zweite Form bei Start öffnen

[egon89]

Hallo,

ich möchte beim Start meines Programmes checken, ob eine Registrierung vorhanden ist.
Sollte diese nicht vorhanden sein, soll sich die TForm öffnen, in dem man den Registriercode eingeben kann.

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState := wsMaximized;
  strStartVerzeichnis := GetCurrentDir; //übergibt das Startverzeichnis;

  if NOT (FileExists('C:\Reg.file')) then
  begin
    FormRegistrierung.Show;
  end;
end;

Ich bekomme beim Start aber immer die Meldung "Zugriffsverletzung bei Adresse..."

Wenn das Programm einmal gestartet ist, dann kann ich ohne Weiteres auf FormRegistrierung.Show; zugreifen, also öffnet sich ohne Probleme.

Warum geht das beim Start-Up des Programms nicht bzw. warum kann ich keine zweite Form beim Start öffnen?

Vielen Dank
Gregor