Wie Valle schon schrieb, nimm ein Array:
Delphi-Quellcode:
var
b_arr: Array[4..24] of Boolean;
procedure TForm1.Timer2Timer(Sender: TObject);
var
i, k: Integer;
begin
k := 28;
for i := 4 to 24 do
begin
if (TShape(FindComponent('Shape'+IntToStr(i))).Top = TShape(FindComponent('Shape'+IntToStr(k))).Top) and (TShape(FindComponent('Shape'+IntToStr(i))).left = TShape(FindComponent('Shape'+IntToStr(k))).left) then
b_arr[i] := true // um diesen teil handelt es sich
else
b_arr[i] := false; // um diesen teil handelt es sich
end;
inc (k);
Gruß
Michael