Lazarus/Free Pascal - shell befehle verzögern anzeige

[socalledchaos]

So, *grr* ein besserer Titel ist mir leider nicht eingefallen.

Folgendes: Ich, Neo Lazarus User möchte gerne folgendes tun:

Eine Form mit Fortschrittsbalken.
Der Balken soll von 0 auf 100% wandern, darunter ein Label dessen beschriftung
sich ändert. Bei den Zwischenschritten werden Befehle via befehl 'shell' aufgerufen, bzw. es läuft noch ein stream der geparst wird.

Nun folgendes Problem. Alle 'shell' Befehle werden nacheinander ausgeführt und dann zum schluß wird das Fenster erst aktualisiert. Das geht natürlich etwas am Sinn vorbei.

hätte hier vielleicht wer ne Idee?




form1.label3.caption := 'pruefe /var/spool/cache/localdeb/binary';
shell('mkdir -p /var/spool/cache/localdeb/binary');
form1.label3.caption := 'Kopiere das Deb File in den Cache.';
shell('mv '+ paramstr(1) +'/var/spool/cache/localdeb/binary');
form1.label3.caption := 'Erzeuge die Packages Datenbank.';
shell('dpkg-scanpackages /var/spool/cache/localdeb/binary /dev/null | gzip -9c > /var/spool/cache/localdeb/binary/Packages.gz');
form1.label3.caption := 'Aktualisiere die APT Datenbank(update).';
shell('aptitude update');