ScreenSaver - Problem mit Vorschau /p

[Mazel]

Hallo,

ich habe ein kleines Problem mit meinem ScreenSaver. Alle Parameter außer /p funktionieren. Ich habe schon ein paar Dinge ausprobiert aber ging nicht. Hier mein aktueller Code:

Delphi-Quellcode:

//  in der .dpr
Application.Initialize;
{$IFDEF Dummy}
 Application.CreateForm(TMain, Main);
{$ENDIF}
If Copy(UpperCase(ParamStr(1)), 1, 2) = '/C' then Application.CreateForm(TInfo, Info)
Else Application.CreateForm(TSaver, Saver);
Application.Run;

// die Saver Unit
procedure TSaver.FormCreate(Sender: TObject);
begin
 LblTime.Caption := 'Testtext';
 If Copy(UpperCase(ParamStr(1)), 1, 2) = '/S' then
  begin
   WindowState := wsMaximized;
   LblTime.Left := Screen.Width - LblTime.Width - 20;
   LblTime.Top := Screen.Height - LblTime.Height - 20;
  end
 Else
  begin
   Application.ShowMainForm := False;
   ParentWindow := StrToInt(ParamStr(2));
  end;
end;

Aber es steht kein Text, hier in dem Fall Testtext, in der Vorschau, und der Hintergrund bleibt Schwarz obwohl ich, um es zu sehen, einen grünen Hintergrund habe.

Kann mir jemand helfen?

Gruß
Mazel