procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject); begin TMSFMXDateTimeEdit2.DateTime := IncMinute(TMSFMXDateTimeEdit1.DateTime, 30); end;