The Time function returns the current time as a TDateTime data type.

The value does not include the current date which is set to zero (0), and can display as 30 Dec 1899.

Please refer to DateTime (TDateTime).

Declaration: function Time : TDateTime

An example follows.

procedure OnMapEvent(var Value:Variant);
begin
//the current time without the date
Value := Time;
end;

Time has a similar function as TimeOf.