Convertir un Float a Date

[noob]

Hola, tengo este código que me convierte una fecha a Float:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Date: string;
begin
  Date := FloatToStr(StrToDate('27/1/2009'));
  ShowMessage(Date);
end;

Por pantalla sale 39840 ahora lo que yo quiero es realizar el proceso inverso, es decir, obtener la fecha 27/1/2009 a partir del número 39840.

¿Es posible?

Saludos y muchas gracias.