Wie kann ich die aktuelle Zeitzone des Betriebssystems ermitteln?

Dafür gibt es die API-Funktion GetTimeZoneInformation (Beispiel von Marian Maier):

procedure ShowZone;
var T : TIME_ZONE_INFORMATION;
    s : string;
begin
  case GetTimeZoneInformation(T) of
      TIME_ZONE_ID_UNKNOWN  : s := 'unbekannt';
      TIME_ZONE_ID_STANDARD : s := T.StandardName;
      TIME_ZONE_ID_DAYLIGHT : s := T.DayLightName;
    else
      RaiseLastWin32Error;
  end;
  ShowMessage(s);
end;

siehe auch:

Wie kann ich Systemzeit und -datum ändern?
Woher bekomme ich die verschiedenen Systemeinstellungen wie Programmordner, Usernamen, ...?

Delphi FAQ