Adressverletzung?

[fortuneNext]

Ich verzweifle noch.

Delphi-Quellcode:

procedure Tfload.Load;
var
  Regist: TRegistry;
begin
ProgBar_Load.Position := 60; 
If ParamStr(1) = '' then
begin
  ProgBar_Load.Position := 100;        
  fLoad.Hide;
  fMain.Show;
end
else if StrToInt(ParamStr(1)) > 0 then
begin
  PasswordNumber := 'Password' + ParamStr(1);
  PathNumber := 'Path' + ParamStr(1);
  Regist := TRegistry.Create;
  Regist.RootKey := HKEY_LOCAL_MACHINE;
  Regist.OpenKeyReadOnly('SOFTWARE\FNAG Coorperation\FNAG Secret\1.0');
  RPassword := Regist.ReadString(PasswordNumber);
  Path := Regist.ReadString(PathNumber);
  Regist.CloseKey;
  Regist.Free;
  ProgBar_Load.Position := 100;
  fLoad.Hide;
  fPW.Show;
end;
end;

Diese Prozedur soll jetzt also direkt beim Starten des Programms ausgeführt werden. Die Form Load wird ja als einzige direkt angezeigt.
Wenn ich es in ein OnShow, OnCreate, OnActivate, OnPaint usw. Ereignis packe bringt er diese Fehlermeldung, sobald die Prozedur ausgeführt wird:

Zitat:

Im Projekt pFNAGSecret ist eine Exception der Klasse EInvalid Operation aufgetreten. Meldung: 'Eigenschaft Visible kann in OnShow oder OnHide nicht verändert werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Wenn ichs in einen 1-Intervall-Timer setze gibts wieder einen AcessViolation-Fehler. Jemand ne Idee? Ich verzweifle an dem verdammten Projekt noch...