MyRecCount:=IntToStr(AGrid.DataSource.DataSet.RecordCount);
TLabel(Parent.FindChildControl('Label2')).Caption:=MyRecCount;

procedure TFrame5.GridTitleClick(Column: TColumn; LblRc: TLabel);
Var
  I :Integer;
begin
  LabelRc:=LblRc;
  LblRecCount:=LblRc.Name;
  GrName:=Column.Grid.Name;
  if ((AGrid<>Nil) and (GrName<>AGrid.Name)) then
     ClearSmtFltr;
  AGrid:=Column.Grid 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;
  AGrid.SelectedField:=Column.Field;
  Column.Title.Font.Style:=[fsBold];
  if Length(Column.Title.Caption)>0 then
    begin
      Label1.Caption:=Column.Title.Caption;
      FldName:=Column.FieldName;
      BitBtn1.Enabled:=True;
      BitBtn2.Enabled:=True;
      BitBtn3.Enabled:=True;
      BitBtn4.Enabled:=True;
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      CheckBox1.Enabled:=True;
      if Column.Field.DataType<>ftString then
         Begin
          Button3.Enabled:=True;
         End
      Else
         Begin
          Button3.Enabled:=False;
         End;
    end;
  ComboBox1.SetFocus
end; 

  RecCount:=IntToStr(AGrid.DataSource.DataSet.RecordCount);
  TLabel(Parent.FindComponent(LabelRc.name)).Caption:=RecCount;