Forms Delphi

Title: know if the form is modal?
procedure TForm1.Button1Click(Sender: TObject);
begin
if (fsModal in FormState) then
ShowMessage('Form is modal.');
end;