Formular schließt nicht mehr

[bundy]

Aus der Delphi Hilfe hab ich folgendes

Zitat:

Der Standardwert von ModalResult ist mrNone. Wenn Sie der Eigenschaft einen anderen Wert zuweisen, wird das Formular geschlossen, und der Wert wird zum Rückgabewert des ShowModal-Funktionsaufrufs, mit dem das Formular angezeigt wird.

das heisst ich mach das so

Delphi-Quellcode:

procedure TfmSucheStrasse.cxButton1Click(Sender: TObject);
begin
with ClientDataModule do
  begin
    tbl_blocks.Active:=false;
    tbl_blocks.Params.ParamByName('parPlz').Value:=cxTextEdit1.Text;
    tbl_blocks.Params.ParamByName('parStrasse').Value:=cxTextEdit2.Text;
    tbl_blocks.Params.ParamByName('parHausNr').Value:=cxTextEdit3.Text;
    tbl_blocks.Params.ParamByName('parStiege').Value:=cxTextEdit4.Text;
    tbl_blocks.Active:=true;

  end;
  cxTextEdit1.Clear;
  cxTextEdit2.Clear;
  cxTextEdit3.Clear;
  cxTextEdit4.Clear;
 ModalResult:=mrOk   //<<<<<<<<---------
end;

also das Form schließt so. Nur ist der Einsatz der richtige ?

lg
Bundy