Progressbar einbinden

[Stevie]

Das aktualisieren der ProgressBar muss in den Schleifenrumpf:

Delphi-Quellcode:

for writerounds := 0 to filesize do
begin
  write(tf, '0');
  ProgressbarX.StepIt;
  Application.ProcessMessages;
end;
closefile(tf);