TStringlist, THashedStringlist gibts nichts schnelleres??

[Franzelchen]

Hier mein Anpassungsversuch:

Delphi-Quellcode:

function VerabeiteDatenAusDatei( const FileName : string; const Ergebnis : TStringList ) : boolean;
var
  sL, Zaehlerliste: TStringList;
  i,Zahl,n: integer;
begin
  // Erstmal ist das Ergebnis noch nicht in Ordnung
  Result := False;

  if FileExists( FileName ) then
    begin
      sL := TStringList.Create;
      Zaehlerliste := TStringList.Create;
      try
        sL.LoadFromFile( FileName );
        // Jetzt machen wir was ganz Tolles mit den Daten und schreiben das in die TStringList Ergebnis


i  := ZaehlerListe.IndexOf(SL.Text);  // Finde Eintrag in der Zaehlerliste
If i=0 then           // Es existiert noch kein Eintrag,
  ZaehlerListe.AddObject(SL.Text, TObject(1)) // erstelle also einen mit dem Wert 1
else begin
  n := Integer (ZaehlerListe.Objects[i]);  // Ansonsten schnapp dir den Zähler und
  ZaehlerListe.Objects[i] := TObject(n+1); // erhöhe ihn um 1.
end;
       for i:=1 to Zaehlerliste.Count-1 do
          begin
             Ergebnis.Add(Zaehlerliste.Objects[i] +IntToStr(n)) ;
          end;


   //     Ergebnis.Add( sl[ 0 ] );
        // Ist alles korrekt durchlaufen und sind die Ergebnisse so korrekt dann
        Result := True;
      finally
        sL.Free;
        Zaehlerliste.Free;
      end;
    end;
end;

Die Zeile
Ergebns.add.... läßt sich nicht compilieren Fehler String und TObject obwohl n doch integer ist. Woran liegt das?