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