procedure FormCreate(Sender: TObject);

This is FormCreate, a member of class TPathEditor.