oki hab jetzt selber geschafft: einfach ein array nehmen.
Delphi-Quellcode:
gegen: array of Tgegenstand;
If isLeft in main.Form1.DXInput1.States then
begin
for i:=0 to high(gegen) do
gegen[i].X:=gegen[i].X+2;
if collision>0 then
for i:=0 to high(gegen) do
gegen[i].X:=gegen[i].X-2;
end;
thx an alle die sichs angeschaut und drüber nach gedacht haben