[nisolmer]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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 и искал в текстовом файле по этому значению?