Abrir un Archivo xls

[[Bicho]]

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 [-]
  //recuerda cada vez que entres en esta función debes tener vaciado el StringGrid
  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;
     // y así hasta cuantas columnas tengas
     StringGrid1.Rowcount :=  StringGrid1.Rowcount + 1;
     table1.Next;
   end;
 Table1.Close;

Espero te sirva.

Saludos