[cloayza]

Estimado Oscarac le propongo lo siguiente...

Código Delphi [-]
...
public
    { Public declarations }
      class function Execute():Boolean;
  end;

...
class function TfrmAnular.Execute():Boolean;
begin
     with TfrmAnular.Create(nil) do
     begin
          btnAnular.Enabled:=false;
          btnAnular.ModalResult:=mrOk;
          btnCancelar.ModalResult:=mrCancel;

          Showmodal;

          Result:=(Modalresult=mrOk);

          Free;
     end;
end;

procedure TfrmAnular.Edit1Change(Sender: TObject);
begin
     btnAnular.Enabled:=TEdit(Sender).Text='ANULAR';
end;

Código Delphi [-]
function _Anular :Boolean;
begin
        Result :=TfrmAnular.Execute();
        if result then
           _Alert('Anulado' ,mtError,[mbOK],['Aceptar'])
       else 
           _Alert('Cancelado' ,mtError,[mbOK],['Aceptar'])
end;

Saludos cordiales