小菜鸟求助，日期怎么相加？？？

595835881

比如说今天是多少号，然后加上多少天之后，那个日期是几月几日呢？？？我的Form是这样，在DateTimePicker中选择日期，在Edit内输入需要加的日期，在MsdkEdit内显示相加后的日期，这样可以吗？？？


我自己写了些代码，但不能实现啊，我的代码是这样
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  Time1, Time2, Time3: TDateTime;
begin
  Time1 := DateTimePicker1.Time;
  Time2 := StrToTime(Edit1.Text);
  Time3 := StrToTime(MaskEdit1.Text);
  if Sender = SpeedButton2 then
  begin
    Time3 := Time1 + Time2;
  end;
end;

鱼友们，小甲鱼，快点来帮帮我啊

595835881

有莫有人会啊

9052664201

edit3.text:=formatdatetime('yyyy-mm-dd',  Trunc(datetimepicker1.Date)+strtoint(edit2.text) )