Visible-Eigenschaft zickt rum

[turboPASCAL]

ShowMainForm... Jupp, das wars...

Delphi-Quellcode:

unit ...

//...

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm := false;
  timer1.Enabled := true;
  Windows.Beep(880, 25);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled := false;
  //  Application.ShowMainForm := true;
  Visible := True;
  Windows.Beep(880, 25);
end;

end.