[jhonny]

Bueno, ¿Esto es lo que necesitas?, espero que si .

Código Delphi [-]
var
  I :Integer;
begin
  I := 0;
  with DBGrid1.DataSource.DataSet do
  begin
    First;
    while not EOF do
    begin
      for j := 0 to FieldCount-1 do
      begin
        StringGrid1.Cells[j,i]:=Fields[j].AsString;
      end;
    Inc(I);
    Next;
    end;
  end;
end;