Im Anhang findest du eine
Unit von mir, sollte korrekt funktionieren!
Schau dir darin die Funktionen
function GetSommerAnfang : TDateTime;
function GetSommerEnde : TDateTime;
function IsSommerZeit : Boolean;
an.
Ist zwar nicht das, was du suchst, aber ich hoffe es hilft
Gruß, Schubi