function TForm2.DateTimeSpin(Sender: TObject):TDateTime;

   begin
//разбивка datetime
//if   SpinEdit1.Value=0 then
//
//begin
  SpinEdit1.Value:=Now.year;
  SpinEdit2.Value:=Now.month;
  SpinEdit3.Value:=Now.day;
  SpinEdit4.Value:=Now.Hour;
  SpinEdit5.Value:=Now.Minute;
//end;



Res:=EncodeDateTime(SpinEdit1.Value,SpinEdit2.Value,SpinEdit3.Value,SpinEdit4.Value,SpinEdit5.Value,0,0);

Res:= IncMinute(Res,(SpinEdit6.value));
  SpinEdit1.Value:=Res.year;
  SpinEdit2.Value:=Res.month;
  SpinEdit3.Value:=Res.day;
  SpinEdit4.Value:=Res.Hour;
  SpinEdit5.Value:=Res.Minute;

if SpinEdit3.Value >  DaysInAMonth(Res.Year,SpinEdit2.Value) then begin SpinEdit3.Value:=DaysInAMonth(Res.Year,SpinEdit2.Value) end else
 SpinEdit3.MaxValue:=DaysInAMonth(Res.Year,SpinEdit2.Value);

  if Sender=Button2 then result:=EncodeDateTime(SpinEdit1.Value,SpinEdit2.Value,SpinEdit3.Value,SpinEdit4.Value,SpinEdit5.Value,0,0);
    result:=Res;
end;