[/SRC]
procedure TForm3.ListBox1Click(Sender: TObject);
Var
  AGrid :TDBGrid;
  ADataSet :TDataSet;
begin
  Edit5.Text:=ListBox1.Items[ListBox1.ItemIndex];
  AGrid:= Form2.FindComponent(Edit5.Text) as TDBGrid;
  If AGrid<>Nil Then
    begin
      DBGrid1.DataSource:=AGrid.DataSource;
      ADataSet:=AGrid.DataSource.DataSet;
      if ADataset is TADOStoredProc then
        Begin
          Edit6.Text:=TADOStoredProc(ADataset).ProcedureName;
          Label7.Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecordCount);
        End;
    end;
  DBGrid1.SetFocus;
end;
[SRC delphi]

[/SRC]
procedure TForm3.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
Var i:integer;
begin
  Beep;                                                                                      // Для контроля
  Label7.Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecNo);  // Для контроля
  i:=DBGrid1.SelectedIndex;
  Edit1.Text:=DBGrid1.Fields[i].AsString;
end;
[SRC delphi]

  DataSource1.OnDataChange:=AGrid.DataSource.OnDataChange;
  AGrid.DataSource.OnDataChange:=Nil;
  AGrid.DataSource.Enabled:=False;
  Sm1:=0.0;
  Panel2.Visible:=True;
  AGrid.DataSource.DataSet.First;
  while NOT AGrid.DataSource.DataSet.Eof do
    begin
      Sm1:=Sm1+TADOStoredProc(AGrid.DataSource.DataSet).FieldByName(FldName).Value;
      AGrid.DataSource.DataSet.Next;
    end;
  Panel2.Caption:=FloatToStrF(Sm1,ffFixed,10,3);
  AGrid.DataSource.OnDataChange:=DataSource1.OnDataChange;
  AGrid.DataSource.Enabled:=True;
  AGrid.DataSource.DataSet.First;