IOS UniDac While Schleife mit Progressbar

[oakley]

Hallo zusammen,

ich lese unter IOS via Unidac eine MySql Tabelle aus.
Dazu habe ich einen Fortschrittsbalken, der mit jedem Durchlauf der While Schleife weiter gefüllt werden soll.
Problem ist dass der Balken am Ende der Schleife direkt auf 100% springt und sich nicht "gemächlich" füllt obwohl der Vorgang einige Sekunden dauert.
Die Progressbar wird dynamisch erzeugt.

Delphi-Quellcode:

procedure TSyncThread.Execute;
var 
  sqlstring : String;
begin
   SYNCQUERY.Close;
   SYNCQUERY.SQL.Text := 'SELECT * from table';
   SYNCQUERY.Execute;

   while not SNYCQUERY.Eof do
   begin
     //hier schreibe ich Daten aus der Tabelle in eine TStringlist
     TSyncThread.Queue(nil,
     procedure
     begin
       (Syncform.SB1.FindComponent('Progressbar1') as TProgressbar).value := (Syncform.SB1.FindComponent('Progressbar1') as TProgressbar).value + 1;
     end);     
     SYNCQUERY.Next;
   end;

LG

Mirko