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;