求助 adotable 初始化的问题

我想在adotable初始化之后每移动一下指针adoquery就跟着进行一次查询，于是
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好多无用记录，求解。