Aus Wert ein Datum konventieren

[ByTheTime]

Das mit dem Delete funktioniert zwar, aber ich hänge immer noch ein bisschen.

Delphi-Quellcode:

//Bisheriger Code:

 SDatum := VarToStr(Excel.Cells[e, 1].Value);
 SZeit := VarToStr(Excel.Cells[e, 2].Value);

 delete(SZeit, 1, 2);
 delete(SZeit, 9, 7);
 StrToDate(SZeit);
 //ShowMessage(SDatum + ', ' + SZeit); 

 Table1.FindKey([SDatum, SZeit])