Label wird in Schleife nicht neu gezeichnet

[Tyler]

Salut

Delphi-Quellcode:

  q_Firmendaten.SQL.Text := ' SELECT firmencode FROM b_firmendaten ';
  q_Firmendaten.Open;
  q_Firmendaten.First;
    l_firmendaten.Caption := '2';
  pb_firmendaten.Max :=  q_Firmendaten.RecordCount;
  repeat
    l_firmendaten.Caption := IntToStr( q_Firmendaten.RecNo );
    l_firmendaten.Refresh;
    FindAllFilesFirmencode('O:\VORDRUCK\FISUBA\', '*' + q_Firmendaten.FieldByName('firmencode').AsString + '*.*', TRUE);
    q_Firmendaten.Next;
    pb_firmendaten.Position := pb_firmendaten.Position + 1;
    pb_firmendaten.Refresh;
    Application.ProcessMessages;
  until
    q_Firmendaten.EOF;

l_firmendaten ist mein Label. Und das müsste eigentlich seine Bezeichnung ändern. Tuts aber nicht, und ich weiss nicht warum. Hab schon alles durch, von Repaint bis Refresh des Labels und der Mainform. Jemand ne Idee?