[[duilioisola]]

A ver si te sirve esto:

Código Delphi [-]
var 
  Desde,Hasta : TDateTime; 
begin
   Desde := Now;
   (...)
   Hasta := Now;
   MessageDlg('Tiempo transcurrido:'+TimeToStr(Hasta-Desde), mtInformation,
      [mbOk], 0);
end;