[/SRC]
unit SmtFltr;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes,System.UITypes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
  Data.Win.ADODB, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.Menus;

type
  TPanel1 = class(TPanel)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Button3: TButton;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    FontDialog1: TFontDialog;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure GridTitleClick(Column: TColumn);
    procedure Button3Click(Sender: TObject);
    procedure Button3KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Exit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
//procedure Register;

var
  Panel1:  TPanel1;
  GrName, FldName, FldType, Fltr, FltrAdd: string;

implementation

{$R *.dfm}
{
procedure Register;
begin
  RegisterComponents('NewLib2', [TPanel1]);
end;
}
procedure TPanel1.BitBtn1Click(Sender: TObject);
Var
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  if Length(ComboBox1.text)>0 then
    Begin
      if AGrid.SelectedField.DataType=ftString then
        Begin
          FltrAdd:=FldName+' like %'+ComboBox1.text+'%';
        End
      else
          FltrAdd:=ComboBox1.text;
      if (CheckBox1.Checked) and (Length(Fltr)>0) then
        Fltr:=Fltr+' And '+FltrAdd
      Else
        Fltr:= FltrAdd;
      BitBtn1.Hint:='Установить фильтр '+Fltr;
      ComboBox1.Text:='';
    End;

  AGrid.DataSource.DataSet.Filter:=Fltr;
  AGrid.DataSource.DataSet.Filtered:=True;
end;

procedure TPanel1.BitBtn2Click(Sender: TObject);
Var
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  AGrid.DataSource.DataSet.Locate(FldName, ComboBox1.Text, [loCaseInsensitive,loPartialKey]);
 end;

procedure TPanel1.BitBtn3Click(Sender: TObject);
Var I :Integer;
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  BitBtn1.Enabled:=False;
  BitBtn2.Enabled:=False;
  BitBtn4.Enabled:=False;
  Button1.Enabled:=False;
  Button2.Enabled:=False;
  Label1.Caption:='';
  ComboBox1.Text:='';
//  ComboBox1.Clear;
  AGrid.DataSource.DataSet.Filter:='';
  AGrid.DataSource.DataSet.Filtered:=False;
  TADOStoredProc(AGrid.DataSource.DataSet).Sort:='';
  AGrid.SelectedIndex:=0;
  Panel2.Visible:=False;
  CheckBox1.Checked:=False;
  for I := 0 to AGrid.Columns.Count-1 do
    AGrid.Columns[I].Title.Font.Style:=FontDialog1.Font.Style;
  Fltr:='';
  BitBtn1.Hint:='Установить фильтр - ЗАДАЙТЕ ЗНАЧЕНИЕ';
  BitBtn2.Hint:='Найти - ЗАДАЙТЕ ЗНАЧЕНИЕ'
end;

procedure TPanel1.BitBtn4Click(Sender: TObject);
begin
  ComboBox1.Text:=FldName;
end;

procedure TPanel1.Button1Click(Sender: TObject);
Var
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  TADOStoredProc(AGrid.DataSource.DataSet).Sort:=FldName;
end;

procedure TPanel1.Button2Click(Sender: TObject);
Var
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  TADOStoredProc(AGrid.DataSource.DataSet).Sort:=FldName + ' DESC';
end;

procedure TPanel1.Button3Click(Sender: TObject);
Var
  AGrid :TDBGrid;
  Sm1 : Real;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  Sm1:=0.0;
  Panel2.Visible:=True;
//  DBGrid1.DataSource:= nil;
//  DBGrid2.DataSource:= nil;

  AGrid.DataSource.DataSet.First;
  Sm1:=Sm1+TADOStoredProc(AGrid.DataSource.DataSet).FieldByName(FldName).Value;
  while NOT AGrid.DataSource.DataSet.Eof do
    begin
      AGrid.DataSource.DataSet.Next;
      Sm1:=Sm1+TADOStoredProc(AGrid.DataSource.DataSet).FieldByName(FldName).Value;
    end;
  Panel2.Caption:=FloatToStrF(Sm1,ffFixed,10,3);
  AGrid.DataSource.DataSet.First;
//  DBGrid1.DataSource := DataSource1;
//  DBGrid2.DataSource := DataSource2;
end;

procedure TPanel1.Button3Exit(Sender: TObject);
begin
    if Panel2.Visible=True then
      Panel2.Visible:=False
end;

procedure TPanel1.Button3KeyPress(Sender: TObject; var Key: Char);
begin
    if Panel2.Visible=True then
      Panel2.Visible:=False
end;

procedure TPanel1.ComboBox1Change(Sender: TObject);
begin
  if (Length(Fltr)>0) Or (Length(ComboBox1.text)>0) then
    Begin
      BitBtn1.Enabled:=True;
      BitBtn2.Enabled:=True;
    End;

end;

procedure TPanel1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
Var
  AGrid :TDBGrid;
begin
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  if (Key=#13) And (Length(ComboBox1.text)>0) then
    Begin
      ComboBox1.text:=Trim(ComboBox1.text);
      ComboBox1.Items.Add(Panel1.ComboBox1.Text);
      AGrid.SelectedField.Name:=FldName;
      if AGrid.SelectedField.DataType=ftString then
        Begin
          FltrAdd:=FldName+' like %'+ComboBox1.text+'%';
        End
      else
          FltrAdd:=ComboBox1.text;
      if (CheckBox1.Checked) and (Length(Fltr)>0) then
        Fltr:=Fltr+' And '+FltrAdd
      Else
        Fltr:= FltrAdd;
      BitBtn1.Hint:='Установить фильтр '+Fltr;
      (Sender As TComboBox).Text:='';
    End;
end;

procedure TPanel1.GridTitleClick(Column: TColumn);
Var
  I :Integer;
  AGrid :TDBGrid;
begin
  GrName:=Column.Grid.Name;
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid;
  if Not CheckBox1.Checked then
    for I := 0 to AGrid.Columns.Count-1 do
       AGrid.Columns[I].Title.Font.Style:=FontDialog1.Font.Style;
  Column.Title.Font.Style:=[fsBold];
  Label1.Caption:=Column.Title.Caption;
  FldName:=Column.FieldName;
  BitBtn1.Enabled:=True;
  BitBtn2.Enabled:=True;
  BitBtn4.Enabled:=True;
  Button1.Enabled:=True;
  Button2.Enabled:=True;
  AGrid.SelectedField:=AGrid.DataSource.DataSet.FieldByName(FldName);
  if AGrid.SelectedField.DataType<>ftString then
     Begin
      Button3.Enabled:=True;
     End
  Else
     Begin
      Button3.Enabled:=False;
     End;

end;

end.
[SRC delphi]

[/SRC]
  GrName:=Column.Grid.Name;  //берём имя грида
  AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid; // и ищем его по имени
[SRC delphi]