Здравствуйте, Konstantin Polyakov, Вы писали:

KP>Добрый день,

KP>Находясь внутри блока

KP>void __fastcall TForm::FormClose(TObject *Sender, TCloseAction &Action)
KP>{

KP>}

KP>требуется узнать из-за чего форма закрыта — из-за нажатия пользователем
KP>крестика в левом верхнем углу окна или программно. Подскажите, пожалуйста, как это
KP>правильно выяснить?

Видимо только если при программном закрытии выставлять какое-нибудь булевское поле в true, а после проверки его очищать...