Entonces no tienes nada más que recorrer la tabla una vez ya la tengas cargada con los datos del XLS y pasar los datos al StringGrid
Debes averiguar cuantas columnas tendrá y a partir de allí
Código Delphi
[-]
Table1.open;
for x := 0 to Table1.Recordcount-1 do begin
Stringgrid1.Cells[1, x] := Table1.FieldByName('Campo1').AsString;
Stringgrid1.Cells[2, x] := Table1.FieldByName('Campo2').AsString;
StringGrid1.Rowcount := StringGrid1.Rowcount + 1;
table1.Next;
end;
Table1.Close;
Espero te sirva.
Saludos