Como puedo evitar el horario de verano

[Parsec]

Hola de nuevo,

el título puede parecer algo surrealista, pero se trata de los siguiente:

1º Me guardo la fecha y hora actual.

Present:=Now;
DecodeDate(Present, ano, mes, dia);
DecodeTime(Present, hora, Min, Seg, Mils);

2º Cambio la fecha y hora del sistema
3º Vuelvo a poner la fecha y hora del sistema según los variables del 1er. punto.

fecha.wyear:=ano;
fecha.wMonth:=mes;
fecha.wDay:=dia;
fecha.wHour:=hora;
Fecha.wMinute:=min;
Fecha.wSecond:=seg;
Fecha.wMilliseconds:=mils;
SetSystemTime(Fecha);

Y resulta que siempre me pone 2 horas más, creo que es debido al horario de verano. ¿como se puede solucionar?
Saludos