Aktualny czas z dokladnoscią do ms

Wie ktoś może jak pobrac aktualny czas z dokładnością do milisekund? Potrzebuje tego do obliczenia prędkości wysyłania w programie.

Polecam QueryPreformanceCounter +F1

http://www.delphibasics.co.uk/RTL.asp?Name=FormatDateTime

a konkretnie

 // Time only - numeric values with leading zeroes
  ShowMessage('hh:mm:ss.zzz = '+FormatDateTime('hh:mm:ss.zzz', myDate));