Du willst jetzt einen String direkt an einem Double zuweisen.
Vergiss am besten den Edit1 und nimmst die fertigen Felder, TDateEdit und TTimeEdit.
Findet man unter Misc.
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
t: TDateTime;
begin
t := DateEdit1.Date + TimeEdit1.Time;
Caption := DateTimeToStr(t);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DateEdit1.Date := now;
TimeEdit1.Time := now;
end;