[Scorpuha]

сделал вот так, никакой реакции на нажатии мышкой

Код:

var
i: integer;
begin
with DBGrid1.DataSource.DataSet do
begin
StringGrid1.ColCount:= FieldCount;
StringGrid1.RowCount:= StringGrid1.RowCount+1;
 for i := 0 to Fields.Count-1 do
 StringGrid1.Cells[i, StringGrid1.RowCount-1]:= Fields[i].AsString;
  //StringGrid1.Cells[i, 0]:= Fields[i].AsString;