function GetTimeZone: String;
var
  timezone: TTimeZoneInformation;
begin
  case GetTimeZoneInformation(timezone) of
    1: Result := 'GMT ' + IntToStr(timezone.Bias div - 60) + ' ' + timezone.StandardName;
    2: Result := 'GMT ' + IntToStr((timezone.Bias div - 60) + 1) + ' ' + timezone.DaylightName;
  end;
end;