[Ravennt]

Здравствуйте, направьте пожалуйста на путь истинный.

База данных FireBird есть таблица с ключевым полем. Нужно перенести курсор в dbgrid на строку с определенным id
обычно выполняю это так:

dtmdlMain.ibqryViewUsluga.Locate('USLUGA_ID',uslID ,[]);
frmMain.dbgrdhMain.SetFocus;

при таблице в среднем в 400 записей locate проводится до 3 секунд на слабой машине. (проблема в том что база быстро увеличивается, соответственно время так же).

Есть ли альтернатива данному методу?

delphi xe2