Foros Club Delphi - Cómo puedo medir en milisegundos un proceso

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;