Dialog schließt sich nicht von selbst

[phlux]

Morgen!
Also aufrufen tu ich den Dialog/Form wie folgt:

Delphi-Quellcode:

procedure TMainForm.FormActivate(Sender: TObject);
begin
  with TdlgSearch.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

Anschließend passiert folgendes:

Delphi-Quellcode:

procedure TdlgSearch.FormActivate(Sender: TObject);
begin
  StartSearch;
end;

Dann das:

Delphi-Quellcode:

procedure TdlgSearch.StartSearch;
begin
  //Hier findet eine lange und qualvolle Suche statt ;)
  ModalResult := mrOK;
end;

Eigentlich müsste die Form danach doch wieder verschwinden, da ich doch per Hand das ModalResult auf mrOK setzte oder??

mfg phlux