Unix tid

Hej

har dette stykke kode til at omdanne til unix tid.. men den er 3600 sekunder bagud...

Hvordan for jeg den til at tage højde for sommer/vinter tid? den tids zone der er sat på PCen

function DateTimeToUnix(Value: TDateTime): LongWord;
var  Year: Word;
    Month: Word;
    Day: Word;
    Hour: Word;
    Min: Word;
    Sec: Word;
    MSec: Word;
    x: extended;
    y: extended;
    TimeZone: TTimeZoneInformation;
    TheZone: float;
begin

  DecodeDate(Value, Year, Month, Day);
  DecodeTime(Value, Hour, Min, Sec, MSec);
  GetTimeZoneInformation(TimeZone);
  TheZone := TimeZone.Bias div -60;

  x := (EncodeDate(Year, Month, Day) - EncodeDate(1970, 1, 1)) * 86400 ;
  y := (Hour*3600) + (Min*60) + Sec;
  x := x+y-(TheZone*3600);
  result := StrToInt( FloatToStr(x) );

end;