Поиск в БД всех записей, удовлетворяющих условию.

procedure TForm2.DateTimePicker2Change(Sender: TObject);
begin
datamodule2.table2.filter := 'B_Data < '''+datetostr (datetimepicker2.date)+'''';
datamodule2.table2.filtered := true;
datamodule2.table2.filtered := false;
end;
 
procedure TForm2.Button5Click(Sender: TObject);
begin
datamodule2.Table2.findprior;
end;
 
procedure TForm2.Button4Click(Sender: TObject);
begin
datamodule2.Table2.findnext;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
datamodule2.Table2.findlast;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
datamodule2.Table2.FindFirst;
end;

datetostr (datetimepicker2.date)

procedure TForm2.Button5Click(Sender: TObject);
begin
datamodule2.Table2.findprior;
end;
 
procedure TForm2.Button4Click(Sender: TObject);
begin
datamodule2.Table2.findnext;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
datamodule2.Table2.findlast;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
datamodule2.Table2.FindFirst;
end;

Я уже сам придумал.

Про DbNavigator я знаю, но прогу эту пишу не для себя, а в задании надо было реализовать именно с помощью кнопочек.

procedure TForm2.Button5Click(Sender: TObject);
begin
   case (Sender As TButton).Tag of
       0:AdoQuery.First;
       1:AdoQuery.Prior;
       2:AdoQuery.Next;
       3:AdoQuery.Last;
   end;
end;
И всем кнопкам участвующим в этом бедламе проставить одну и туже процедуру Button5Click.