Dialog ModalResult setzen

[API]

Hi,

In einem Dialog hat der "OK"-Button per Default den Wert mrOk. Nun soll der Wert auf mrCancel gesetzt werden, wenn Felder im Dialog nicht ausgefüllt wurden. Folgendes funktioniert leider nicht..

Delphi-Quellcode:

procedure TfrmSettings.btnOKClick(Sender: TObject);
begin
  if CheckFields then
    btnOK.ModalResult := mrCancel
  else
    btnOK.ModalResult := mrOK
end;