Problema con las fechas desde el cambio a horario de verano

[Maska10]

Gracias compañero, entonces tengo un problema en la función delphi que me calcula el GTM, me sigue dando +01:00.

  GetTimeZoneInformation(Info);
  Bias:= abs(Info.Bias) / 1440;
  if Info.Bias <= 0 then
    Str:='GTM+' + TimeToStr(Bias)
  else
    Str:='GTM-' + TimeToStr(Bias);
  //showmessage(str);
  if Str = 'GTM+0:00:00' then
  Str:= '+00:00';
  if Str = 'GTM+1:00:00' then
  Str:= '+01:00';
  if Str = 'GTM+2:00:00' then
  Str:= '+02:00';