TProgressbar

[shareholder]

Hallo,

Ich möchte den Status der Code verarbeitung anzeigen.

Delphi-Quellcode:

s := 'teststring'; // <--------- START
s := regex(s);

repeat
  // irgendwas
until
  test = true;

.
.
.
tausend andere funktionen und prozeduren etc.
.
.
.

// <--------- ENDE

Ich möchte jetzt also den Status der Codeverarbeitung von
START bis ENDE anzeigen.

Ist das irgendwie möglich?
Wenn ja wie?