So läuft das recht flüssig, ohne einen Thread zu nutzen.
Ich rufe in der Schleife immer diesen Teil auf:
Delphi-Quellcode:
if Assigned(odProgressBar) then
begin
odProgressBar.Tag := odProgressBar.Tag + 1;
if odProgressBar.Tag > 100 then
begin
odProgressBar.Refresh;
odProgressBar.Tag := 0;
end;
// Application.ProcessMessages;
end;
Die Alternative wäre ProcessMessage, aber das ist ja nicht immer sinnvoll.