String nach Zeichen absuchen und davor alles löschen

[poker1337]

Hallo!

Ich beschäftige mich gerade mit Textdateien und ähnlichem, und jetzt bin ich auf ein Problem gestoßen!

Die textdatei enthält foldendes:

abcdefguxxxxxxxxx
eerrrxxxxxxxxxaaa
ooooosssosoa:sspapqpq
assas:soapqw:ioadsiod

usw.

Ich habe die Textdatei mit sl.Loadfromfile erfolgreich geladen,
und mit der Funktion "for zeilennr:=0 to sl.Count-1 do" lasse ich die Textdatei Zeile für Zeile
durchsuchen!

Mittels POS() suche ich dann das erste ':', denn ich will das erste ':' finden
und alles was DAVOR steht löschen.
Die Position findet er, nur wie geht es weiter?
Mit delete(sl[zeilennr], 1 , posi);
kriege ich diesen Error:

[DCC Fehler] Unit2.pas(64): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Ich weiß nicht warum, vll kann mir hier einer helfen
oder einen anderen Ansatz vorschlagen und ggf. wie ich das anders mit ner Textfile handle.

Code habe ich hier:
sl: TStringlist
zeilennr: Integer
posi: Integer

Delphi-Quellcode:

 for zeilennr:=0 to sl.Count-1 do

            begin  
                Memo1.Lines.Add(sl[zeilennr]);
                
            posi := POS(':', sl[zeilennr]);
            delete(sl[zeilennr], 1 , posi);
            Memo2.Lines.Add(sl[zeilennr]);

            end;
         finally
            sl.free; //Objekt wieder freigeben
        end;

[edit=SirThornberry] Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]