Sicher ist sicher, folgende Zeile noch einfügen:
Code:
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Sleep(1500);
frmSplash.Label1.Caption := 'Initializing...';
[color=#008000]frmSplash.Refresh;[/color]
end;
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so