Cómo puedo medir en milisegundos un proceso

[gramajo]

Hola a todos Feliz Navidad, estoy midiendo la velocidad de conexión, inserción, etc. de componentes IBX, ODBC y ZEOS, he visto el tutorial de Caral, pero tengo la gran duda de calcular el tiempo en milisegundos, cómo puedo hacerlo? he adaptado cierto código que encontré en otra publicación, pero el tiempo lo mide en segundos, disculpen mi ignorancia como puedo hacer para obtener el tiempo en milisegundos?

PD El tuto de caral no tiene el código fuente.

Código Delphi [-]
procedure TForm1.btnInsertarClick(Sender: TObject);
var i : integer;
    tInicio, tFinal : TDateTime;
    tSegundosInicio,tSegundosFinal : Integer;
begin
  tInicio:= now;
  tSegundosInicio:= (StrToInt(FormatDateTime('hh',tInicio))*3600)+
  (StrToInt(FormatDateTime('nn',tInicio))*60)+
  (StrToInt(FormatDateTime('ss',tInicio))*1);
end;

[[AgustinOrtu]]

Revisa este post

[gramajo]

Muy interesante, esperimentaré con el código....

[juanelo]

Checa esta liga con la heramienta AQTime