Text-Dateien in Delphi7

[Frischling]

Tadaaa, ich bin wieder da <---passt eigentlich nicht zu meiner Situation^^

Ich versuch wie ein Wilder was vernünftiges über pos und copy rauszufinden, aber überall nicht Halbes und nichts Ganzes.

Ich möchte mich jetzt langsam an folgendes herantasten:

Nachdem ich es mit eurer Hilfe geschafft habe, einen Wert aus ComboBox.Text in der Textdatei zu suchen und in ein Memo-Feld zu schreiben, möchte ich nun, dass diesem Wert weitere Folgen(Wert1,Wert2,Wertn).

Als erstes möchte ich den ersten Wert, der mit ComboBox.Text übereinstimmt, abspalten, damit überhaupt etwas im Memo-Feld erscheint. Nur leider haperts an inkompatiblem Typen.

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
 var   strings,p:TStrings;
       path:String;
       i:Integer;
begin
strings := TStringList.Create;

  try
    path := ExtractFilePath(ParamStr(0));
    path := path + 'Testdatei.txt';
    strings.LoadFromFile(path);

  if strings.Count > 0 then
    begin
      Memo1.Clear;
      for i := 0 to strings.Count - 1 do
         begin
         p:=pos(',',strings);   //Fehlermeldung 'inkompatible Typen'
           If ComboBox1.text=copy(strings,1,p-1) then  //die kommt dann hier sicher auch
           Memo1.Lines.add(strings[i]);

         end;

    end;
    finally
    strings.Free;
end;
end;

Das heisst also wiedermal: HÜÜÜÜÜÜLFE!

P.s.
Mein Kopf dröhnt