- procedure TForm1.FormCreate(Sender: TObject);
- begin
- jvprofiler1.Names.Add('FormCreate');
- jvprofiler1.Start;
-
- jvprofiler1.EnterName('FormCreate');
- MessageBeep(WORD(-1));
- jvprofiler1.ExitName('FormCreate');
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- jvprofiler1.ShowReport;
- end;