Bestimmte Strings aus einer Datei in StringGrid einlesen

[pp-deluxe]

Servus,

danke für eure Hilfe,
hier ist der aktuelle Quelltext

Code:

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringlist;
Teilstring: String;
teil1, teil2: String;
  i : Integer;
begin
sl:= TStringlist.Create;
     try
        if Opendialog1.execute then
           begin
           sl.LoadFromFile(Opendialog1.Filename);
           Teilstring := sl[1];
           label1.caption := Teilstring;
           teil1 := copy(Teilstring,1,pos('xD',Teilstring)));
           teil2 := copy(Teilstring,pos('LOL',data)+3,pos('=',Teilstring)));

           for i:= 0 to sl.Count-1 do
               begin
               // Datenverarbeitung;
               // sl.Strings[i]

               end;

           end;
     except
           ShowMessage ('Super!');
     end;
     sl.Free;
end;

Der Quelltext ist nicht fertig, ich änder ihn wenn wir das hier geschafft haben:

Das Problem ist, dass es nicht immer ein "xD" in der Datei gibt, die Werte stehen aber immer an einer Stelle pro Zeile.

Nochmal ein paar Zeilen:

23:13:24.44122112 PP:2 PP2:3 xD LOL VLC/VXX = 150/77
24:13:25.78945612 Pi:3 PP2:4 xD LOL VLY/VYX = 150/77
25:15:27.78985612 Pu:3 PP4:5 xD LOL VLF/FYX = 150/77

Wie liest man das nun ein(also die ZeilenStelle ...)?

ThX


Ich bin für jede Hilfe dankbar, muss das heute beenden !