procedure InvalidateForm;

This is InvalidateForm, a member of class TTrainingThread.