[andres1569]

Mira si esto te sirve:

var
  i, j : Integer;

Tabla.First;
j := 0;
while NOT Tabla.EOF do
begin
  for i:=0 to Tabla.FieldCount - 1 do
    WS.Cells[i, j] := Tabla.Fields[i].AsString;
  Inc(j);
  Tabla.Next;
end;

NOTA: No estoy muy seguro del orden , si Cells[i, j] o si Cells[j, i].