[Gareth]

Сделал всё как сказали. Заменил combobox на spinEdit, в каждом spinedit прописал

Код:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 with (Sender as TSpinEdit) do
  begin
   if Value = MinValue then Value:= MaxValue - 1;
   if Value = MaxValue then Value:= MinValue + 1;
  end;{with}
end;

В первом spinEdit сделал maxvalue 24, в остальных 60.

На кнопке быстрого набора написал тот же код что и в первый раз

Код:

var
 dt: TDateTime;
  Hours, Minutes, Seconds, Milliseconds: Word;
begin
dt := GetTime;
  DecodeTime(dt, Hours, Minutes, Seconds, Milliseconds);
se1.Text:=IntToStr(Hours); // выводит  часы
se2.Text:=IntToStr(Minutes+55); // выводит минуты и прибавляет 5 минут
if se2.Value and Minutes >60 then

Минуты прибовляются выше 60.
Пробовал на кнопке написать

Код:

    if spinedit2.Value >60 then
  spinedit2.Value:=(-60);

Не получается! Что делаю не так? Может что-то забыл ?