Hilfe mit Access Violation

[okoeller]

Zitat von OldGrumpy:

Grobe Faustregel: Alles was Du selber erzeugst, musst Du auch wieder abräumen. Ausnahmen bestätigen die Regel (z.B. TObjectList, Childcontrols, etc.)

@OldGrumpy: Das heisst dann wohl dass ich auch TVL.Free setzen muss, da TTextvorlage eine von mir erstellte Klasse ist?

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);
    FfrmTH.ShowModal;
    if FfrmTH.ModalResult = mrOK then
    begin
      ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
    end;
  finally
     FfrmTH.Free;
  end;
  TVL.Free;
end;

Oliver