[Alegun]

Попробуйте скопировать в обычный StringGrid, для примера

Код:

procedure TfrmMain.DBGrid1CellClick(Column: TColumn);
var
 i: integer;
begin
with DBGrid1.DataSource.DataSet do
begin 
StringGrid1.ColCount:= FieldCount;
 for i := 0 to Fields.Count-1 do
  StringGrid1.Cells[i, 0]:= Fields[i].AsString;
end;
end;