[Gareth]

помогите понять каким образом можно сортировать компоненты, созданные в рантайме.
к примеру создаю 10 панелей, на панелях прогрессбар с рандомным значением.. Вся загвоздка в том, что я могу удалить панель..
12345678910, после удаление нескольких панелей массив будет 123....6..8910
То-есть массив не смещается, остаются пустые ячейки..

панели изначально прикреплены align := alTop;
как можно сортировать панели по .Top, учитывая значения в ProgressBar`e ?

Код:

var
  Form2: TForm2;
  PNL: array [1 .. 10] of TsPanel;
  PG: array [1 .. 10] of TsProgressBar;
  xTag: Integer;

implementation

{$R *.dfm}

procedure TForm2.pnl_click(Sender: TObject);
begin
  xTag := (Sender as TsPanel).Tag;
  FreeAndNil(PNL[xTag]);
end;

procedure TForm2.sSpeedButton1Click(Sender: TObject);
var
  i: Integer;
begin
  Randomize;

  for i := 1 to 10 do
  begin
    PNL[i] := TsPanel.Create(Self);
    PNL[i].Parent := sScrollBox1;
    PNL[i].Top := MaxInt;
    PNL[i].Align := alTop;
    PNL[i].Height := 50;
    PNL[i].Tag := i;
    PNL[i].OnClick := pnl_click;
    { -------------------------------- }
    PG[i] := TsProgressBar.Create(Self);
    PG[i].Parent := PNL[i];
    PG[i].Position := RandomRange(0, 100);
  end;
end;