[Help]Verschidene Label's via Progressbar einblenden.

[Gabberjool]

Hi all,

Hab hier mal ne frage ich probier verschidene labels via Progerssbar einbelnden zulassen.
Jedoch belndet der immer nur eins ein (b.z. das erste) was mach ich falsch...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    RzBackground1: TRzBackground;
    Timer1: TTimer;
    cxHintStyleController1: TcxHintStyleController;
    dxSkinController1: TdxSkinController;
    Probar1: TcxProgressBar;
    RzBitBtn1: TRzBitBtn;
    RzLabel4: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel1: TRzLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{--------------------- ProgressBar ---------------------}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Probar1.Position := Probar1.Position +1;
Application.ProcessMessages;
  if probar1.Position = 10 then
  Begin
  RzLabel2.Visible := True;
    If Probar1.Position = 50 then
    Begin
    RzLabel3.Visible := True;
    If Probar1.Position = 100 then
      Begin
      RzLabel4.Visible := True;
      Timer1.Enabled := False;
      Probar1.Position := 100;
    end;
  end;
end;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

{----------------- ProgressBar End ---------------------}

Lieber Gruss gabba...