Problem bei TStringlist Freigabe

[Zacherl]

Ändert das etwas:

Delphi-Quellcode:

TObjekt1 = class(TComponent) 
  public
    Stringlist1:TStringlist; 
    Stringlist2:TStringlist; 
    Stringlist3:TStringlist; 

    constructor Create(AOwner: TComponent) override; 
    destructor Destroy override; 
  end;

[...]

Delphi-Quellcode:

constructor TObjekt1.Create(AOwner: TComponent); 
begin  
  inherited Create(AOwner);
  Stringlist1:=TStringlist.create; 
  Stringlist2:=TStringlist.create; 
  Stringlist3:=TStringlist.create; 
end; 

destructor TObjekt1.Destroy;
begin 
  Stringlist1.free; 
  Stringlist2.free;  //Hier kommt die Zugriffsverletzung 
  Stringlist3.free; 
  inherited Destroy;
end;

Auch noch die Create und Destroy Methoden hinzugefügt.

Florian