[align=left]procedure TForm1.Button1Enter(Sender: TObject);[/align]
[align=left]procedure TForm1.Button1Exit(Sender: TObject);[/align]