제가 가지고 있던 자료인데 한번 해보세요
예제를 작성해 보지를 못해서 맞는지 모르겠습니다
잘 되면 리플 달아주세요...^^


function UNIXTimeToDateTime(UnixTime: LongWord): TDateTime;
var
  TimeZoneInformation: TTimeZoneInformation;
begin
  GetTimeZoneInformation(TimeZoneInformation);
  Result := StrToDate('01/01/1970') +
             (UnixTime/(24*3600)) -
             ((TimeZoneInformation.Bias + TimeZoneInformation.DaylightBias) /
             (24 * 60));
end;

function DateTimeToUNIXTime(DelphiTime : TDateTime): LongWord;
var
  MyTimeZoneInformation: TTimeZoneInformation;
begin
  GetTimeZoneInformation(MyTimeZoneInformation);
  Result := round(DelphiTime - StrToDate('01/01/1970') +
                 ((MyTimeZoneInformation.Bias) / (24 * 60))) *
                 (24 * 3600);
end;

영대님께서 보내주신 것은 이전부터 계속테스트 했는데. DateTimeToUNIXTime 이게 문제 가 되더군요.. 비슷한 값이 나오긴 한데.
아니듯 했습니다.
찾기가 너무 힘들어 DateTimeToUNIXTime 이것만
그냥 만들어 버렸습니다.
이건 잘되더군요. 답변 갑사드립니다.

function UNIXTimeToDateTime(UnixTime: DWORD): TDateTime;
var
  TimeZoneInformation: TTimeZoneInformation;
begin
  GetTimeZoneInformation(TimeZoneInformation);
  Result := EncodeDate(1970,1,1) +   (UnixTime/(24*3600)) -
             ((TimeZoneInformation.Bias + TimeZoneInformation.DaylightBias) /
             (24 * 60));
end;

function DateTimeToUNIXTime(DelphiTime : TDateTime):Dword;
var
    time1970Sec, NowTimesec : Comp;
begin
    NowTimeSec := TimeStampToMsecs(DateTimeToTimeStamp(delphitime)) / 1000;
    time1970Sec := TimeStampToMsecs(DateTimeToTimeStamp(strtodatetime('1970-01-01 09:00:00'))) / 1000;
    Result :=trunc( NowTimeSec - time1970Sec);
end;