[lazarus] Why won't modal result work for me?

[Tony Maro]

I have a form with a button that has this:

procedure TFrmNewSchedDep.BtnOkCLICK(Sender: TObject);
begin

     ModalResult := mrOk;
     self.close;

end;


When clicked the form closes, but the result is always mrCancel.

Thanks,
Tony