1:
2:
3:
4:
5:
6:

Shape3.Left := Shape2.Left+Shape2.Width;
Shape4.Left := Shape3.Left+Shape3.Width;
Shape5.Left := Shape4.Left+Shape4.Width;
Shape6.Left := Shape5.Left+Shape5.Width;
Shape7.Left := Shape6.Left+Shape6.Width;
Shape8.Left := Shape7.Left+Shape7.Width;					

1:
2:
3:
4:

for j := 3 to 8 do
begin
TShape(Components[j]).Left := TShape(Components[j-1]).Left + TShape(Components[j-1]).Width;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TShape then
      begin
       if (TShape(Components[i]).Brush.Color = clHighlight) and (TShape(Components[i]).Visible = true) then
        begin
         if TShape(Components[i]).Name = 'Shape1' then
             begin
             if MessageDlg('Wollen Sie das wirklich?',
                 mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
                   begin
                     Shape1.Visible := false;
                     Label2.Visible := false;
                     Shape2.Left := Shape1.Left;
                     for j := 3 to 8 do
                       begin
                         if Components[j] is TShape then
                            TShape(Components[j]).Left := TShape(Components[j-1]).Left + TShape(Components[j-1]).Width;
                       end;
                     Label3.BoundsRect := Shape2.BoundsRect;
                     Label4.BoundsRect := Shape3.BoundsRect;
                     Label5.BoundsRect := Shape4.BoundsRect;
                     Label6.BoundsRect := Shape5.BoundsRect;
                     Label7.BoundsRect := Shape6.BoundsRect;
                     Label8.BoundsRect := Shape7.BoundsRect;
                     Label9.BoundsRect := Shape8.BoundsRect;
                   end
                   else Exit;
           end; 
        end;
      end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

function TForm1.GetColShape(ACol: Integer): TShape;
begin
  Result := FindComponent('Shape' + IntToStr(ACol)) as TShape;
end;

function TForm1.GetColLabel(ACol: Integer): TLabel;
begin
  Result := FindComponent('Label' + IntToStr(ACol + 1)) as TLabel;
end;

procedure TForm1.ShapeUpdate;
var
  i, iLeft: Integer;
  Sh: TShape; 
  Lb: TLabel;
begin
  // linker Rand des ersten sichtbaren Shape
  iLeft := 0;
  for i := 1 to 6 do
  begin
    Sh := GetColShape(i);
    Lb := GetColLabel(i);
    Sh.Visible := Lb.Visible;
    if Sh.Visible then
    begin
      Sh.Left := iLeft;
      Lb.Left := iLeft;
      Inc(iLeft, Sh.Width);
    end;
  end;
end;

procedure TForm1.LabelClick(Sender: TObject);
begin
  if Sender is TLabel then
  begin
    if MessageDlg('Wollen Sie das wirklich?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
    begin
      TLabel(Sender).Visible := False;
      ShapeUpdate;
    end;
  end;
end;					

1:
2:
3:

Sh := GetColShape(i);
Lb := GetColLabel(i);
if Sh.Visible then Sh.Visible := false;