Label ändert sich nicht

[delphis spassbremse]

Moinzen... hab nben kleines Prob...

Ich hab mir ein Programm geschrieben, das meine
Internetcafesoftware aktualisieren soll...

nur hab ich ein problem, dass während dem Updatevorgang
sich das Label mit den Updateinfos nicht ändert..

CODE:

Delphi-Quellcode:

 .....  var I: Integer; update2: Tinifile;


    Label3.Caption := 'Verbinde mit Updateserver'; // Das ändert sich noch

    sleep(1000);
    downloadfile('http://'+setting.ReadString('config', 'host', '')+':24888/ricupdate.ricu', 'C:\Windows\ricupdate.ricu');

    sleep(1000);
    Label3.Caption := 'Lade Dateiliste';   // Das nicht mehr
    update2 := TIniFile.create(ExtractFilePath(ParamStr(0))+ 'ricupdate.ricu');

    sleep(1000);
    update2.ReadSections(filel.Items);
    pb3.Max := filel.Count;

    sleep(1000);
    Label3.Caption := 'Suche Daten';

    for I := 0 to form1.filel.Count - 1 do
    begin
      Label3.Caption := 'Datei '+inttostr(I)+'/'+inttostr(filel.Count - 1)+' wird geladen';
      downloadfile('http://'+setting.ReadString('config', 'host', '')+':24888/'+update2.ReadString('File'+inttostr(I), 'sdat', ''), update2.ReadString('File'+inttostr(I), 'pcdat', ''));
      pb3.Position := I;
      sleep(1500);
    end;

    Label3.Caption := 'Vorgang wird abgeschlossen';  / Das au nich
    sleep(5000);
    ende;  // Abschlussfunktion zum registrywert setzen und runtefahren...
end;

Hat jem. ne idee?

MFG