Convertir fecha con formato sql a algo legible

[Delphitest]

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:

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 ...