In einer Datei etwas finden

[Dash]

Moin,

ich weiß ich habe dazu schon mal ne ähnliche Frage gestellt, aber ich bekomme das mit pos einfach nicht gebacken. Ich habe vor die Datei die im Anhang liegt auszuwerten. Das Programm soll also z.B. nach ³4> in der Datei suchen, dieses steht hinter einem | . Die Datei wird bisher in eine StringListe geladen, aber mit find funktioniert da auch nichts.

Delphi-Quellcode:

procedure TForm1.Oeffnen;
var
  tbl_1 : TStringList;
  I : Integer;
begin
  tbl_1 := TStringList.Create;
  tbl_1.Clear;
  tbl_1.Delimiter := '|';

  if OpenDialog1.Execute then
  if not fileexists(OpenDialog1.FileName) then
  Exit else
  begin
    ListBox1.Clear;
    tbl_1.LoadFromFile(OpenDialog1.FileName);
    if tbl_1.Find('18' , I) then
    ListBox1.Items.Add('GEFUNDEN !!!');
  end;
end;

Greetz
Dash