Разница во времени!!!!

[Dj_DeVaIs]

Добрый день. Ситуация такая есть прога на delphi.
Надо реализовать Разница во времени таким образом что бы в реальном времени показывалось сколько времени в разных городах России. Написал вот такой код

var TZ: _TIME_ZONE_INFORMATION;
    dif: Integer;
    h,m,s,ms: Word;
    T: TTime;
      D: TDateTime;
Begin
  T := Now;
  DecodeTime(T,h,m,s,ms);
  GetTimeZoneInformation(TZ);
  dif := TZ.Bias div 60;
  h := h+dif+3;
  Label3.Caption:= '+3';
  Label5.Caption := TimeToStr(EncodeTime(h,m,s,ms));
end;

Тут время показывается Московское. Все бы классно но когда разница в 9 часов с Москвой то он показывает ошибку
Безымянный.jpg

В чем может быть причина? Подскажите пожалуйста.

[Аватар]

Просто бездумное увеличение часов. Если h например равно 26, что EncodeTime должно делать? Правильно, упасть
см. IncHour