Exemplo de programa instrumentado com a UnPerfCounter.pas

sistema.dpr

program sistema;

uses
  unPerfCounter,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  //...
  Unit1000 in 'Unit1000.pas' {Form1000};

{$R *.RES}

begin
  masterPerf.currentToConsole('inicio do programa');
  
  Application.Initialize;
  masterPerf.currentToConsole('apos app.initialize');
  
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  masterPerf.currentToConsole('apos criacao dos forms');
 
  procedimento1();  
  masterPerf.currentToConsole('apos proc1');
  
  procedimento2();  
  masterPerf.currentToConsole('apos proc2');
  
  //...
  
  masterPerf.currentToConsole('vai comecar execucao');
  Application.Run;
end.