Обновление данных dbgrid с БД Access

[otter86]

Я работаю на Embarcadero на Win 7. В интернете такие коды не работают. Сортировать по датам "Дата". Как сделать выбрать меню "Сортировку" на "Дата" и автоматом работает. Вкл и выкл. функции в меню. Я буду Вам очень благодарен.

procedure TMain.FindServChange(Sender: TObject);
begin
ADOQuery1.Filtered:=false;
 if (FindServ.Text<>'') then
  begin
   ADOquery1.Active;
   ADOQuery1.Filter:='[Службы] LIKE ' + QuotedStr(FindServ.Text + '%');
   ADOQuery1.Filtered:=true;
end;
end;

procedure TMain.FIOzakChange(Sender: TObject);
begin
ADOQuery1.Filtered:=false;
 if (FIOzak.Text<>'') then
  begin
   ADOquery1.Active;
   ADOQuery1.Filter:='[ФИО заказчика] LIKE ' + QuotedStr(FIOzak.Text + '%');
   ADOQuery1.Filtered:=true;
end;
end;

procedure TMain.FormActivate(Sender: TObject);
begin
ADOQuery1.Open;
end;

 // использование свойства Count
procedure TMain.CountClick(Sender: TObject);
begin
  if DBgrid1.SelectedRows.Count > 0 then
  begin
    showmessage(inttostr(DBgrid1.SelectedRows.Count));
  end;
end;

// удаление
procedure TMain.deleteClick(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи? ',mtConfirmation, [mbYes,mbNo],0)=mrYes
   then
    begin
       if not DBGrid1.DataSource.DataSet.Eof then DBGrid1.DataSource.DataSet.Delete;
    end;
//if not DBGrid1.DataSource.DataSet.Eof then DBGrid1.DataSource.DataSet.Delete;
end;

// переход на изменение списка журнала
procedure TMain.editClick(Sender: TObject);
begin
Application.CreateForm(TFormChange, FormChange);
  if FormChange.ShowModal=mrOk then FormChange.free;
  ADOQuery1.Edit;
  DBGrid1.DataSource.DataSet.Edit;
end;

// использование свойства CurrentRowSelected
procedure TMain.SelectedClick(Sender: TObject);
begin
  if DBgrid1.SelectedRows.CurrentRowSelected then
    showmessage('Выбрана');
end;

procedure TMain.SortDateClick(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to 1 do
 MainMenu1.Items[i].Checked := false;
 (sender as TMenuItem).Checked := true;
end;

procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DBGrid1.EditorMode or DBGrid1.DataSource.DataSet.Modified then
    DBGrid1.DataSource.DataSet.Post;
end;

procedure TMain.FormCreate(Sender: TObject);
var path:string;
begin
  GetDir(0,path);
  ADOConnection1.Close;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'\db3.mdb;Persist Security Info=False';
  ADOConnection1.Connected:=true;
  ADOQuery1.Open;
  Main.KeyPreview := True;
end;

procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then Close;
end;

procedure TMain.NaimWorkChange(Sender: TObject);
begin
ADOQuery1.Filtered:=false;
 if (NaimWork.Text<>'') then
  begin
   ADOquery1.Active;
   ADOQuery1.Filter:='[Наименование работы] LIKE ' + QuotedStr(NaimWork.Text + '%');
   ADOQuery1.Filtered:=true;
end;
end;

// переход на новый заказ
procedure TMain.newClick(Sender: TObject);
begin
Application.CreateForm(TFormNewOrder, FormNewOrder);
  if FormNewOrder.ShowModal=mrOk then FormNewOrder.free;
  //ADOQuery1.Edit;
  DBGrid1.DataSource.DataSet.Open;
  ADOQuery1.UpdateBatch;
  ADOQuery1.Requery;
  //DBGrid1.SetFocus;
end;

[eval]

вроде слова все знакомые, а вот вместе какаято "вторчерметсливдровнет"