Время местное, московское и UTC (Time)

[Sky4x]

Доброго времени суток! Сильно не пинайте, если что не так. Голова уже не варит. Вообщем ломаю голову над такой проблемой (для меня - проблема).

В программе отображается на 3 панелях статус бара время: читинское (т.е. время компьютера, московское -6 и утц -9 часов от местного).

//вывод времени на панель StatusBar
procedure TForm1.FormCreate(Sender: TObject);
  begin
    StatusBar1.Panels[0].Text:= 'Чита: ' + TimeToStr(Time);
    StatusBar1.Panels[1].Text:= 'Москва: ' + TimeToStr(Time - 6/24);
    StatusBar1.Panels[2].Text:= 'UTC: ' + TimeToStr(Time - 9/24);
  end;

Всё бы ни чего, но после наступления полуночи по локальному времени т.е. в 00:00:00, время московское и утц "начинает" считаться +6 и +9 соответственно, и в добавок, отсчёт обратный.

Думаю, может через if проверить наступление 00:00:00 с соответствующей поправкой (+или-)? Или есть способ проще моего
Направьте мои мысли в нужное русло.
Спасибо.