[Vayrus]

О, точно, совсем забыл про эту функцию, тогда все манипуляции с временем будут выглядеть так?

Код:

function PrepareTime(hh: word; mm: word; ss: word = 0; msec: word = 0): String;
begin
  Result := DateTimeToStr(now + EncodeTime(hh, mm, ss, msec));
end;

function TForm1.NextWorkTime: String;
begin
  Result := '';
  case ComboBox1.ItemIndex of
    0:
      Result := PrepareTime(0, 10); // 10 минут
    1:
      Result := PrepareTime(0, 15); // 15 минут
    2:
      Result := PrepareTime(0, 30); // 30 минут
    3:
      Result := PrepareTime(1, 0); // 1 час
    4:
      Result := PrepareTime(2, 0); // 2 часа
    5:
      Result := PrepareTime(3, 0); // 3 часа
  end;
end;