Nur Mittel Europäsche Winterzeitzeit (MEZ)

[shmia]

Ich schlage vor man holt sich die Zeit in UTC und rechnet dann in MEZ um.
Für die UTC Zeit gibt es folgende Unit:
Code-Library: lokale Zeit und UTC
Demnach wäre MEZ:

Delphi-Quellcode:

function NowMEZ:TDateTime;
const
   ONE_HOUR = 1.0/24.0;
begin
  result := NowUTC + ONE_HOUR;
end;