Transformar Hexadecimal para TDate, tem como ?

Olá a Todos,

estou com essa função pra transformar data de tipo TDate para Hexadecimal.
Gostaria tb de fazer o inverso,

Tem como ??

Desde já agradeço.


Ex.: (25/09/2003) corresponde a ´04395F´
function ChaveData(Data:TDate):string;
var
DigVer:string;
Temp,i:Integer;
begin
DigVer := inttostr(trunc(Data));
Temp := 0;
for i:=1 to length(DigVer) do begin
Temp := Temp + i * ord(DigVer[i]) + (3 * i) + (trunc(data) div i) *
(i * i);
end;
Result := inttohex(temp,6);
end;