Problema con las fechas desde el cambio a horario de verano

[Maska10]

Bueno, resuelto, le he añadido al código esta función para saber si estamos en horario de verano y listo:

function EsHorarioVerano(Date: TDate): Boolean;
var
tzInfo: TTimeZoneInformation;
Horario: DWORD;
begin
Horario:= GetTimeZoneInformation(tzInfo);
if Horario = TIME_ZONE_ID_DAYLIGHT then
Result:= True
else
Result:= False;
end;