Как преобразовать данные экспортированные из Excel в Delphi

[dimaximo]

Использовал следующий код для экспорта из Excel. Перемещаемые данные имеют тип данных "время". После экспорта в StringGrid отображаются как вещественные. Если кто-нибудь сталкивался с этим, помогите пожалуйста..как можно преобразовать обратно?

PHP код:

var
 WorkBk: _WorkBook;
 WorkSheet: _WorkSheet;
 K,R,X,Y: integer;
 IIndex: OleVariant;
 RangeMatrix: Variant;
 NomFich: WideString;
begin
 NomFich:=ExtractFilePath(ParamStr(0))+'1.xls';
 IIndex:=1;
 XLApp.Connect;
 XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                EmptyParam,EmptyParam,0);
 WorkBk:=XLApp.WorkBooks.Item[IIndex];
 WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
 WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
 X:=XLApp.ActiveCell.Row;
 Y:=XLApp.ActiveCell.Column;
 SG1.ColCount:=Y+1;
 RangeMatrix:=XLApp.Range['A1',XLApp.Cells.Item[X,Y]].Value;
 XLApp.Quit;
 XLApp.Disconnect;
 K:=1;
 for R:=1 to Y do
   sg1.Cells[r,k]:=RangeMatrix[k,r];
  repeat
   for R:=1 to Y do
     SG1.Cells[(R),(K)]:=RangeMatrix[k,r];
   SG1.RowCount:=K+1;
   inc(K,1); 
  until K>X;
 RangeMatrix:=Unassigned;
end;