Parent mit FindComponent lässt Label verschwinden...

[sinumeriker]

Hallo Zusammen...

Ich habe Probleme bei der Parent Zuweisung mittels FindComponent.

Programmiere ich es "manuell" wird das Label Kennzeichnung oben mittig in den ProgressBar dargestellt.

In der Schleife mit FindComponent verschwindet es...

Kann mir einer sagen wo mein Fehler ist?

Grüße aus dem Sauerland…
Peter

Delphi-Quellcode:

  for i := 1 to 21 do begin
    with (FindComponent('Kennzeichnung' + IntToStr(i)) as TLabel)do
      begin
        Parent :=  (FindComponent('ProgressBar' + IntToStr(i)) as TProgressBar );
        Alignment := tacenter;
        Layout := tltop;
        Align := alClient;
        Font.Style := [fsBold];
        Font.Color := clblue;
        Font.Size:=20;
      end;
  end;