如何在dbgrid中实现多次模糊定位？(100分)

[?]高手请留意我的问题是：
dbgrid 与query 相连，dbgrid中的纪录post到本地，
尚未commit到database前，做一快速查找功能，用一窗体
录入某一字段进行模糊查找，用3个按钮实现，‘OK’，
‘NEXT’，‘CANCEL’；
OnOKClick:
begin
if edtFindBno.Text <> '' then
query.Locate('sno;Bno', VarArrayOf([querySno.AsString, edtFindBno.Text ]),[loCaseInsensitive,loPartialKey] );
ModalResult:=1;
Hide;
end;

OnNextClick:如何实现查找下一个？

OnCancelClick:
begin
ModalResult:=1;
Hide;
end;
Prompt reply will be very appreciated!Thanks!!!

OnNextClick:
begin
if edtFindBno.Text <> '' then
query.Next;
while (not query.Eof) and (Pos(edtFindBno.Text,query.FieldByName('Bno').Value) = 0) do
query.Next;
end;

接受答案了.