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