procedure Execute; override;

This is Execute, a member of class TTrainingThread.