TForm1 Class
procedure Button1Click(Sender: TObject);
This is Button1Click, a member of class TForm1.