求助 adotable 初始化的问题

我想在adotable初始化之后每移动一下指针adoquery就跟着进行一次查询，于是
Delphi(Pascal) code

var
  search: booleam;

procedure TForm3.FormCreate(Sender: TObject);
begin
   search := false;               
end;


procedure TForm3.tbl1RecordsetCreate(DataSet: TCustomADODataSet;
  const Recordset: _Recordset);
begin
  search := True;               //初始化完成在进行这个移动
end;

procedure TForm3.tbl1MoveComplete(DataSet: TCustomADODataSet;
  const Reason: TEventReason; const Error: Error;
  var EventStatus: TEventStatus);
begin
  if search then
  begin                                 
    ShowMessage(tbl1.FieldByName('用户名').AsString);
  end;                //如果在初始化完后，应该就showmessage记录的第一条记录吧？
end;

 可现在还是一直showmessage好多无用记录，求解。

什么事移动一下指针，如果是切换记录的话，应该有一个afterscroll事件吧

这个我试了下，里面放了一个showmessage，开始也是先把所有记录都过一遍，才定到开始的记录，请问这个怎么解决呢？