Calculos - contar o tempo em ms de uma operacao

// contando quanto tempo (milisegundos) leva uma operacao

var

  Tempo, ContadorTempo: DWord;

begin

  // Zera os contadores de tempo

  ContadorTempo := GetTickCount;

  {

    .... Processo pesado ....

  }

  Tempo := ((GetTickCount - ContadorTempo) / 1000); // Retorna quanto tempo levou

end;