var TZOffsetFromGMT : Integer; procedure TForm1.FormCreate(Sender: TObject); begin TZOffsetFromGMT := NSTimeZone.localTimeZone.secondsFromGMT; end; use it later as follows: var Hour, Min, Sec, MSec : Word; CurrTime : TDateTime; begin CurrTime := Now+TZOffsetFromGMT/3600.0/24.0; ...
More...