Dialoganzeige Abbrechen

[Berni68]

Hallo zusammen,

wie schließe ich einen modal angezeigten Dialog im Ereignis OnShow.
Folgendes hab ich schon probiert:

Delphi-Quellcode:

type
  TDialog. = class(TForm)
  ...
  private
    CanShow: boolean;
  ...
  end;

procedure TDialog.FormShow(Sender: TObject);
begin
  // Prüfungen ob Dialog angezeigt werden darf negativ:
  CanShow:= false;
  Exit;
  // Code wenn Prüfung positiv  
end;

procedure TDialog.FormActivate(Sender: TObject);
begin  
  if CanShow=false then ModalResult:= mrCancel; 
    // geht nicht Dialog wird trotzdem angezeigt

  if CanShow=false then BitBtnCancelClick(Sender); 
   // geht auch nicht Dialog wird trotzdem angezeigt, kann dann aber über BitBtnCancel geschlossen werden

  if CanShow=false then Hide; 
    // geht auch nicht Dialog wird trotzdem angezeigt
end;

hat jemand mal einen Tip?