Click a button by code

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Begin

   ShowMessage ( 'Click' ) ;

End ;

Procedure TForm1.Button2Click ( Sender : TObject ) ;

Begin

   Button1.Perform ( WM_LButtonDown , 0 , 0 ) ;

   Sleep ( 20 ) ;

   Button1.Perform ( WM_LButtonUp , 0 , 0 ) ;

End ;