[demon-sheff]

чего-то я может не понимаю? делаю все так

Код:

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
  Form1.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := IdleEventHandler;
end;


procedure TForm1.IdleProc(sender:TObject; var Done: Boolean);
begin
   Timer1.:= TimeToStr(Time);
done:=false;
end;

не проходит