[nisolmer]

Приветствую всех!
Помогите пожалуйста разобраться с поиском.
Нужно чтобы в файле находил нужную строку например по фамилии и выводил результат например в ShowMassage.
написал такое но почемуто не работает:

Код:

procedure TForm3.Button2Click(Sender: TObject);
var  F:TextFile;
  n2: Integer;
begin
 AssignFile(F,'memo.exe');
 Reset(F);
  while not Eof(f) do
  begin
 readln(f,n2);
 ShowMessage(IntToStr(n2));
 end;
 CloseFile(f);
 end;

как сделать чтобы он смотрел в Edit2 и искал в текстовом файле по этому значению?