[lmikle]

Да все просто. Пользуйся тем, что TDateTime есть число с фиксированой точкой, где целая часть - дни, а дробная - время:

Код:

function SecToDate(ASec : Integer) : TDateTime;
const
  SecsInDay = 24 * 60 * 60; // секунд в дне
var
  ZeroDate : TDateTime;
  InDays : Integer;
  ModSecs : Integer;
begin
  ZeroDate := EncodeDate(1,1,2009); // точка отсчета
  InDays := ASec div SecsInDay; // дней в переданных секундах
  ModSecs := ASec mod SecsInDay; // оставшиеся секунды

  // Вычислфем результат
  Result := ZeroDate + InDays + ModSecs / SecsInDay;
end;