Memory Leaks beheben

[w4rheart]

hier:

Delphi-Quellcode:

procedure Verbindung.ClientSocketRead( Sender: TObject; Socket: TCustomWinSocket );
var
  lNachricht, lEineNachricht: Zeichenkette;
begin
  lNachricht := Socket.receiveText;
  hatTextwerkzeug.setzeTrennung( NTrenner );
  repeat
    lEineNachricht := hatTextwerkzeug.wortAn( lNachricht, 1 ); 
    if
      hatTextwerkzeug.laenge( lEineNachricht ) = hatTextwerkzeug.laenge( lNachricht ) then
      lNachricht := ''
    else

      lNachricht := hatTextwerkzeug.textOhne( lNachricht, 1, hatTextwerkzeug.laenge( lEineNachricht ) + hatTextwerkzeug.laenge( NTrenner ) );
    if lEineNachricht <> '' then
      hatListe.haengeAn( ZeichenketteObjekt.init( lEineNachricht ) ); //HIER
    if zMitProtokoll then
      hatClientKontrollfenster.memo1.lines.add( 'Verbindung liest ' + lEineNachricht );
  until lNachricht = '';
end;

Allerdings kann ich nicht auf gibfrei, free oder sonst was zugreifen.