$ 0 0 procedure TForm1.Button1Click(Sender: TObject); begin if (fsModal in FormState) then ShowMessage(’Form is modal.’); end;