procedure TfrmMain.acSearchExecute(Sender: TObject);
var FromPos: TBookmark;
begin
FromPos:=dgSkupka.DataSource.DataSet.GetBookMark;
with qrSelectForFind do
begin
Close;
SQL.Clear;
SQL.Add('select keyfield from Table');
SQL.Add('where любое условие');
SQL.Add('order by лунашудв');
Open;
end;

if not qrSelectForFind.IsEmpty then
begin
ID:=qrSelectForFind.FieldByName('keyfield').AsFloat;
dgSkupka.DataSource.DataSet.Locate('keyfield',Variant(ID),[]);
end
else
begin
ShowMessage('Значение не найдено');
dgSkupka.DataSource.DataSet.GotoBookMark(FromPos);
end;
finally
dgSkupka.DataSource.DataSet.FreeBookMark(FromPos);
end;

procedure TfrmMain.acSearchNextExecute(Sender: TObject);
var FromPos: TBookmark;
begin
Found:=FALSE;
try
FromPos:=dgSkupka.DataSource.DataSet.GetBookMark;
qrSelectForFind.Next;
if not qrSelectForFind.EOF then
begin
ID:=qrSelectForFind.FieldByName('keyfield').AsFloat;
dgSkupka.DataSource.DataSet.Locate('keyfield',Variant(ID),[]);
Found:=TRUE;
end
else Found:=FALSE;
if not Found then
begin
ShowMessage('Значение не найдено');
dgSkupka.DataSource.DataSet.GotoBookMark(FromPos);
end;
finally
dgSkupka.DataSource.DataSet.FreeBookMark(FromPos);
// Cursor:=crDefault;
end; //finally
end;
Есть две кнопки -- одна для начала поиска, по которой вызывается диалоговое окно, в котором указываются условия поиска а потом вызывается TfrmMain.acSearchExecute, а вторая кнопка для продолжения поиска, в которой вызывается TfrmMain.acSearchNextExecute.