[Alegun]

Кой-чего нужно добавить

Код:

procedure TForm1.tsl(ds: integer);
var
 hour, min, sec: integer;
begin
 min := ds div 60;
 hour:= min div 60;
 if min > 60 then min:= min mod 60;
 sec := ds mod 60;
 SpinEdit1.Value:=hour;
 SpinEdit2.Value:=min;
 SpinEdit3.Value:=sec;
end;

Для всех кнопок-прибавлялок задать такой клик

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
tsl((SpinEdit1.Value * 3600) + ((SpinEdit2.Value+ (Sender as TButton).Tag) * 60) + SpinEdit3.Value);
end;

и не забыть в Tag этих кнопок записать сколько надо прибавлять, напр. 15 мин Tag=15, 1 час Tag=60