Lo he medio solucionado dandole vueltas con otra función que he visto buscando en el foro. Os lo pongo por si le sirve a alguien:
Código:
procedure TForm1.Edit1Change(Sender: TObject);
var
dias : double;
begin
dias := strtofloat(edit1.text)/86400;
label4.caption := datetostr(EncodeDate(1970,1,1)+dias);
end;
No lo tengo al 100% como yo quería ya que ademas de la fecha quiero que me ponga hh:mm , sigo buscando ...