DateTime.Second

Syntax

Second: Integer;

The Second property returns the number of seconds from the current variable.

Sub UserProc;
Var
    i: Integer;
    DT: DateTime;
Begin
    DT := DateTime.Now;
    i := DT.Second;
End Sub UserProc;

After executing the example the "i" variable contains the number of seconds from the "DT" variable.