[seelenus]

Здравствуйте.
Проблема такая: есть ряд кнопок и четыре из них хочу сделать как в DBNavigator, т.е переход в начало списка (ToolToBegin), на предыдущую запись (ToolToBack), на слудующую (ToolToForward) и в конец списка (ToolToEnd). Вот обработчик кнопки "переход на следующую запись":

Код:

procedure TForm1.ToolToForwardClick(Sender: TObject);
begin
if DataModule2.ADOQuery1.Eof then
  begin
    Form1.ToolToForward.Enabled:=false;
    Form1.ToolToEnd.Enabled:=false;
  end
  else
  begin
    DataModule2.ADOQuery1.Next;
    if not DataModule2.ADOQuery1.Bof then
    begin
      Form1.ToolToBack.Enabled:=true;
      Form1.ToolToBegin.Enabled:=true;
    end;
  end;
end;

Никак не могу сделать, чтобы условие " if DataModule2.ADOQuery1.Eof " срабатывало сразу. Оно почему-то срабатывает не сразу, а после третьего нажатия на кнопку, т.е. кнопки у меня неактивными становятся не сразу.