Søgning i txt fil

Jeg har spurgt om dette før men har aldrig fået et svar der virkede... Så spør li igen... Findes der en kode til at søge i en txt fil efter det der er indtastet i en edit box?
Mvh.
Rune Jensen

Kode 

var
  fil : TStringList;
  idx : Integer;
  fnd : Boolean;
  txt : String;
begin
//  txt := soegetekst.
  fil := TStringList.Create;
  try
    fil.LoadFromFile('C:\\text.txt');
    fnd := False;
    idx := 0;
    while (idx < fil.Count) and (not fnd) do
    begin
      if pos(txt, fil[idx]) > 0 then
        fnd := true;
      inc(idx);  
    end;
  finally
    fil.free;
  end;
  if fnd then
    ShowMessage('Fundet!');
end;

Tjaaa jeg skal gerne have mit program til at vise den linje hvor ordet blev fundet... Det skal gerne vises i en label...
Nogen forslag?

Kan ik få det til at virke... Den kommer med en fejlbesked hvor der står noget med "access violation at 0000007"
Mvh.
Rune Jensen

Kan ik få det til at virke... Den kommer med en fejlbesked hvor der står noget med "access violation at 0000007"
Mvh.
Rune Jensen

Kode 

function FindWord(AWordToFind, AFileName : String) : String;
var
  fil : TStringList;
  idx : Integer;
begin
  Result := ''; // Default har vi ikke fundet noget.
  fil := TStringList.Create;
  try
    fil.LoadFromFile(AFileName);
    for idx := 0 to fil.Count-1 do
    begin
      if pos(AWordToFind, fil.Strings[idx]) > 0 then
      begin // vi fandt en linie hvor AWordToFind findes..
        Result := fil.Strings[idx]; // Sæt resultatet
        Break; // Hop ud af for løkken
      end;
    end;
  finally
    fil.free;
  end;
end;

// Eks. på brugen af FindWord funktionen.
procedure TForm1.Button1Click(Sender : TObject);
begin
  Label1.Caption := FindWord('test', 'mintextfil.txt');
end;

Kommer stadig med en fejl... Omkring TForm...