[[cHackAll]]

Creo que un Segundos := Trunc(Now * SecsPerDay), TTimeStamp es una estructura de dos enteros, uno son los días, el otro:

Código Delphi [-]
var ts: TTimeStamp; Segundos: Integer;
begin
 ts := DateTimeToTimeStamp(Now);
 Segundos := (ts.Date * SecsPerDay) + (ts.Time div MSecsPerSec);
end;