procedure TForm1.Button1Click(Sender: TObject);
var
 stim: TSystemTime;
 date: TDate;
 time: TTime;
begin
  date := DateTimePicker1.Date;
  time := DateTimePicker2.Time;
  DateTimeToSystemTime(date+time,stim);
  SetSystemTime(stim);
end;