Delphi, как узнать номер строки?

[Delphinchik]

Есть form, button, idhttp:

procedure TForm.ButtonClick(Sender: TObject);
var
a,b,n:String;
begin
b:='Слово';
n:='Номер строки в котором это слово';
a:=idhttp.get('http://сайт.ру/слова.txt');
if pos(b,a)  > 0 then
showmessage(n);
end;

Ищу переменную b в файле слова.txt, но как заставить переменную n получить номер строки в котором это слово то что в переменной b?
Подскажите пожалуйста, очень надо.

[DIgorevich]

Грузи файл в StringList. А потом уже получай номер его строки.

[Delphinchik]

Знать бы как это делается, я еще совсем новичек, есть пример какой ни будь? Вроде бы вопрос легкий, всего то строку узнать (

[igh0st]

...
var
  S: TStrings;
  I: Integer;
  ...
begin
  ...
  S := TStringList.Create;
  try
    S.Text := a;
    for I := 0 to S.Count - 1 do
      begin
        if Pos(b, S.Strings[I]) > 0 then
          ShowMessage('Строка: ' + IntToStr(I));
      end;
  finally
    S.Free;
  end;
  ...
end;

[Delphinchik]

Спасибо!!! То что нужно.