You need to use DecodeDate and DecodeTime.
Something like this (just a small example, prints hours:minutes:seconds(:milliseconds), day.month.year):
Simba Code:
function Test: string;
var
milliseconds, seconds, minutes, hours, day, month, year: Word;
begin
DecodeDate(Now, year, month, day);
DecodeTime(Now, hours, minutes, seconds, milliseconds);
Result := (ToStr(hours) + ':' + ToStr(minutes) + ':' + ToStr(seconds) + '(:' + ToStr(milliseconds) + '), ' +
ToStr(day) + '.' + ToStr(month) + '.' + ToStr(Year));
end;
begin
WriteLn(Test);
end.