procedure TFrmCancelIn.DateTimePicker1CloseUp(Sender: TObject);
begin
if DateTimePicker1.Date > DateTimePicker2.Date then
DateTimePicker1.Date := DateTimePicker2.Date;
end;
begin
if DateTimePicker1.Date > DateTimePicker2.Date then
DateTimePicker1.Date := DateTimePicker2.Date;
end;