[PhoeniX]

Код:

var
  hh, mm, ss, msec: word;
begin
  hh := 2; // 2 часа
  mm := 30; // 30 минут
  ss := 0; // 0 секунд
  msec := 0; // 0 миллисекунд
  Result := now + EncodeTime(hh, mm, ss, msec);
end;