Cronometrar un tiempo

[jachguate]

Guarda en una variable la hora a la que se ejecutó la última vez:

Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
    FTiempoTranscurrido: TDateTime;
    FHoraUltimoProceso: TDateTime;
...

procedure TForm1.Procesar;
begin
  if FHoraUltimoProceso <> 0 then
    FTiempoTranscurrido := now - FHoraUltimoProceso;
  FHoraUltimoProceso := now;
  // procesar
end;

Hasta luego.