Como puedo evitar el horario de verano

[Parsec]

No hace falta ecFisa, está resuelto, no me gusta hacerlo así pero funciona:

Present:= Now;
DecodeTime(Present, hora2, Min, Seg, Mils);
If hora2<>hora then // hora es el valor real y hora2 con las horas sumadas por el horario de verano.
begin
diferencia:=hora2-hora;
hora:=hora-diferencia;
fecha.wHour:=hora;
end;
SetSystemTime(Fecha);

Muchas gracias por todo y hasta la próxima.

Saludos