для одного цикла:
Код:
for i:=1 to 3 do
begin
case i of
begin
1: begin TImage(i).Visible:=True; TImage(i+1).Visible:=False; TImage(i+2).Visible:=False; end;
2: begin TImage(i).Visible:=True; TImage(i-1).Visible:=False; TImage(i+1).Visible:=False; end;
3: begin TImage(i).Visible:=True; TImage(i-1).Visible:=False; TImage(i-2).Visible:=False; end;
end;
end;
Сорри, если не так. Написал первую попавшуюся мысль
