[Delphitest]

Bien, pues probando y probando... ya lo tengo

Asi queda el tema, ademas veo que los segundos se inician el 1/1/1970 y no en el 80 como yo pensaba.

procedure TForm1.Edit1Change(Sender: TObject);
var
dias : double;
begin
  if edit1.Text <> '' then begin
    dias := strtofloat(edit1.text)/86400 + encodedate(1970,1,1);
    label4.caption := datetimetostr(dias);
  end;
end;

Gracias de todos modos por vuestra colaboración, seguiré molestando de vez en cuando