Работа с типизированными файлами (Delphi)

[Rocky095]

Доброго времени суток, ув. форумчане!
Задача: требуется в типизированном файле найти слово, которое вводится пользователем в edit1 и вывести всю строку с этим словом в таблицу.
Например: файл состоит из фамилии имён и отчеств. пользователь в edit1 вводит фамилию и вся строка с именем и отчеством выводится в таблицу
Фамилия Имя Отчество

пробовал через seek и pos.. но что то не получается.
While not EOF(f1)do begin
read(f1,data);
If pos (f1,fam) then begin

[Serge_Bliznykov]

Reset(f1);
While not EOF(f1)do begin
   read(f1,data);
   If trim(data.fam)=trim(Edit1.Text) then
       ВыдатьСтрокуВТаблицу: data.im, data.fam, data.otch
end;
Close(f1);