Text-Dateien in Delphi7

[Frischling]

Sorry wegen dem Doppelpost, aber ich bin wieder etwas weiter gekommen*froi*

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
 var   strings,s: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
      for i := 0 to strings.Count - 1 do
         begin
          s := strings;
          If ComboBox1.text=strings[i] then
           Memo1.Lines:=s;
         end;
    end;
    finally
    strings.Free;
end;
end;

Jetzt wird mir im Memo-Feld aber der gesamte Inhalt der Datei angezeigt, was ich ja nicht will.
Egal wierum ich es drehe, ich gerate immer in einen String/String-Konflikt.

Weiss da jemand eine Lösung für?

P.s.
Ich weiss, ich bin ein schwerer Fall^^