Activate the Start buton

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Begin

   SendMessage ( Form1.handle , WM_SYSCOMMAND , SC_TASKLIST , 0 ) ;

End ;