Get Timezone Information in local machine in Delphi

procedure TMainFrm.GetTimezone;
var
  s: String;
  ZoneInfo: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ZoneInfo);
  s := 'Bias: ' + IntToStr(ZoneInfo.Bias);
  s := s + #13 + #10 + 'StandardName: ' + ZoneInfo.StandardName;
  s := s + #13 + #10 + 'StandardBias: ' + IntToStr(ZoneInfo.StandardBias);
  s := s + #13 + #10 + 'DaylightName: ' + ZoneInfo.DaylightName;
  s := s + #13 + #10 + 'DaylightBias: ' + IntToStr(ZoneInfo.DaylightBias);
end;