Поиск по всей таблице непрерывный

[Cyclops]

Помогите создать цикл для непрерывного поиска по таблице БД.
Есть прога подключенная к БД FB 2.1 использую компонент IBTable через DataSource показываю данные в DBGrid пользователю.
Пользователю надо осуществлять поиск по всем столбцам и строкам которые он видит в Гриде для этого есть Едит и кнопка.
процедуру написал все ищет но не останавливается на найденном и не ищет дальше постоянно с начала помогите дописать.

procedure TFormFirst.BitBtnFindClick(Sender: TObject);
var
s : string;
bm : TBookmark;
i : Integer;
begin
if not dm1.DataSource1.DataSet.Active then Exit;
if dm1.DataSource1.DataSet.RecordCount = 0 then exit;
if LEFind.Text = '' then Exit;
dm1.DataSource1.DataSet.DisableCont rols;
Screen.Cursor := crHourGlass;
bm1 := dm1.IBTable1.GetBookmark;
bm := dm1.IBTable1.GetBookmark;
try
dm1.IBTable1.Next;
for I := 0 to dm1.IBTable1.FieldCount - 1 do
begin
if DM1.IBTable1.Fields[i].DataType= ftWideString then
begin
while not dm1.IBTable1.Eof do
begin
s := Dm1.IBTable1.FindField(DBGrid1.Sele ctedField.FieldName).AsString;
if pos(AnsiUpperCase(LEFind.Text), AnsiUpperCase(s))>0 then
begin
bm := Dm1.IBTable1.GetBookmark;
Break;
end;
Dm1.IBTable1.Next;
end; // while not (MemData.Eof)
if Dm1.IBTable1.Eof then
begin
Dm1.IBTable1.GotoBookmark(bm);
Application.MessageBox('Достигнут конец списка для поиска!', PChar(Application.Title), MB_ICONINFORMATION);
BitBtnFind.Caption:='Найти';
end // if MemData.Eof
else begin
BitBtnFind.Caption:='Далее';
end;
Dm1.IBTable1.GotoBookmark(bm1);
Screen.Cursor := crDefault;
end; //if DM1.IBTable1.Fields[i].DataType= ftWideString then
end; //for I := 0 to dm1.IBTable1.FieldCount - 1 do
except
on E:Exception do begin
s := 'Ошибка поиска записи' + #13#10 + E.Message;
DM1.SaveToLog(s);
Application.MessageBox(PChar(s), PChar(Application.Title), MB_ICONINFORMATION);
end;
end; // try

Screen.Cursor := crDefault;
dm1.DataSource1.DataSet.EnableContr ols;
LEFind1.Text:='';
end;

[evg_m]

процедуру написал все ищет

я не был бы так в этом уверен.

for I := 0 to dm1.IBTable1.FieldCount - 1 do begin
  if DM1.IBTable1.Fields[i].DataType= ftWideString then begin
  while not dm1.IBTable1.Eof do begin
     s := Dm1.IBTable1.FindField(DBGrid1.SelectedField.FieldName).AsString;

но не останавливается на найденном и не ищет дальше постоянно с начала

Конечно же будет искать каждый раз сначала, если мы не не фиксируем найденное место, а восстанавливаем место старта.

if Dm1.IBTable1.Eof then
begin
  Dm1.IBTable1.GotoBookmark(bm);
  Application.MessageBox('Достигнут конец списка для поиска!',  PChar(Application.Title), MB_ICONINFORMATION);
  BitBtnFind.Caption:='Найти';
end // if MemData.Eof
else begin
  BitBtnFind.Caption:='Далее';
end;
Dm1.IBTable1.GotoBookmark(bm1);