Form hängt sich bei der Schleife auf

[EWeiss]

Ein

Application.ProcessMessages;
könnte in dem Fall abhilfe schaffen.

Delphi-Quellcode:

    for i := 1 to berechneteteBytes do
       begin
         FileStream.WriteBuffer(dataByte,1);
         ProgressBar1.Position :=i;
         Application.ProcessMessages;
       end;

gruss