Text-Dateien in Delphi7

[Frischling]

Ok, das scheinz jetzt zu klappen. Danke dir. Aber die Probleme wollen irgendwie nicht enden.
Ich habe jetzt ein bissel umgeschrieben:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if strings.Count > 0 then
    begin
      for i := 0 to strings.Count - 1 do
         begin
          s := strings;
          If ComboBox1.items=strings then
           Memo1.Lines:=s;
         end;
    end;
    strings.Free;
end;

begin
  strings := TStringList.Create;

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

  end;

1. Die Variable strings scheint die Strings aus der Textdatei nicht einzulesen. Ich habe den inhalt von strings verfolgt und es erscheint nur ().
Woran kann das nun wieder liegen? Ist sicher nur ein kleiner Fehler.

2. Der Text aus der ComboBox1 soll in der Datei gesucht werden. Da bekomme ich wieder den TString/String-Fehler. Also habe ich nicht ComboBox1.Text, sondern ComboBox1.Items verwendet. So wie ich das verstehe, wird mir das aber keine genauen Ergebnisse liefern, da alle Item-Werte durchsucht werden und nicht, wie geplant, das ausgewählte.
Wie kann ich also ComboBox.Text "TString-kompatibel" machen?


EDIT:
Das ist nur der veränderte Code. Der Rest ist so wie im letzten Post.