ProgressBar zur Laufzeit in zur Laufzeit erstellte StatusBar

[schuetze09]

Hallo,

ich erstelle zur Laufzeit eine StatusBar, außerdem will ich in die Statusbar eine zur Laufzeit erstelle Progressbar rein haben.
Wenn ich die Progressbar nicht in die Statusbar erstelle, dann funktioniert es, nur nicht, wenn die Progressbar in die Statusbar rein soll....

irgendwie will es nicht:

Delphi-Quellcode:

  // Statusbar erstellen
  STB_Edit[anzSQL]:=TStatusBar.Create(Sheet[anzSQL]);
  STB_Edit[anzSQL].Parent:=Sheet[anzSQL];
  with STB_Edit[anzSQL] do
  begin
    Align:=alBottom;
    Panels.Add;
    Panels[0].Text:='';
    Panels[0].Width:=200;
    Panels[0].Alignment:=taCenter;
    Panels.Add;
    Panels[1].Text:='';
    Panels[1].Width:=200;
    Panels.Add;
    Panels[2].Text:='';
  end;
  //ProgressBar in StatusBar erstellen
  STB_Edit[anzSQL].Perform(SB_GETRECT, 1, integer(@R));
  PROG_BAR[anzSQL]:=TProgressBar.Create(nil);
  PROG_BAR[anzSQL].Parent:=STB_Edit[anzSQL];
  PROG_BAR[anzSQL].BoundsRect:=r;
  with PROG_BAR[anzSQL] do
  begin
//    backgroundColor:=clYellow;
    position:=0;
    Visible:=True;
  end;

Jemand ne Idee???

MfG
schuetze09