Datei durchsuchen

[the_seed]

Hi, brauch eure hilfe ichhab folgende problemstellung

ich habe eine variable mit irgend einer nummer und möchte eine textdatei nach dieser nummer durchsuchen und dementsprechend diese zeile ausgeben.

zb.
nummer:= '123456'

Textdatei: doijweoidjd oweidj123456789dwd wedwe
dwedwedewdwed45613547dededwd ... usw

habe schon probiert mittels pos die position zu bestimmen funkt. aber leider nicht.

Delphi-Quellcode:

var suchstr,x,y:string;
    i      : integer;
    q      : Tstringlist:
begin

  suchstr:='458756';
   q := TStringlist.create.
   q.loadfromfile('daten.txt');

for i:= 0 to q.count-1 do begin

y:= pos(q.strings[i],suchstr);
   if y<>0 showmessage(q[y]);
end;
end;

habe einiges probiert und bisher wurden mir zwar positionen angeziegt aber nie die richtigen, bitte um hilfe wie ich das problem am besten löse