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