Label Transparent Problem

[Matze]

Hi. Also nach Ablauf dieser Prozedur bleibt es bei mir immer noch transparent.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Label1.Transparent := true;
  Label1.Update;

  for i := 1 to 2000000 do
  begin
    Label1.Caption := IntToStr(i);
    Application.ProcessMessages;
  end;
end;