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