Hilfe mit Access Violation

[Tyrael Y.]

Ja du musst es freigeben.
Guck mal den Code unten an und vergleich mal mit deinem bitte.

So wäre der Umgang mit try...finally richtig.

Delphi-Quellcode:

procedure TfrmErstgespraech.ZeigeTexthilfeAn;
var
  TVL : TTextvorlage;
  FfrmTH : TFrmTexthilfe;
begin
  TVL := TTextvorlage.Create;
  try
    TVL.Produkt:= FD.Produkt;
    TVL.Kategorie:= pcErstgespraech.ActivePage.Caption;
    FfrmTH := TFrmTexthilfe.Erzeugen(TVL);
    try
      FfrmTH.ShowModal;
      if FfrmTH.ModalResult = mrOK then
      begin
        ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
      end;
    finally
      FfrmTH.Free;
    end;
  finally
    TVL.Free; 
  end;
end;