magari potresti usare qualche funzione appositamente studiata????

http://www.delphibasics.co.uk/RTL.asp?Name=DecodeTime