我该如何在button按扭的onclick事件中,调用如下的过程
procedure TForm_plate.DBGrid7TitleClick(Column: TColumn);
var
   str: string;
begin
 str:=query1.fields[Column.index].FieldName;
 dbgrid7.DataSource:=ds1;        with query1 do
           begin
              close;
              sql.Clear;
              sql.Add('select * from outplate where signdate between :startdate and :enddate order by '+str+' desc');
              Params[0].AsDateTime:=dtp_outstart.DateTime;
              params[1].AsDateTime:=dtp_outend.DateTime;
              prepare;
              open;
           end;
               end;