Freigabe eines verfügbaren Formulars nach Show

[RaSoWa1]

Ich Danke euch beiden für die schnelle Antwort.

Wenn ich euch richtig verstanden habe müßte folgender Code ausreichen:

Delphi-Quellcode:

procedure Suchen(aAlb: TAlbum);
begin
  with TFmDlgSuchen.Create(FmAlben.ActiveMDIChild) do begin
    Alb    := aAlb;
    Show;
    end;
end;

Delphi-Quellcode:

procedure TFmDlgSuchen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  inherited;
end;

Erste Tests waren erfolgreich.

Gruß Klaus.