[alexusankov]

Сообщение от poli-smen

Код:

var
  i: Integer;
begin
  for i := 1 to 116 do
  begin
    (FindComponent('image'+IntToStr(i)) as TImage).Canvas.Pen.Color := clRed;
  end;
end;

p.s. Откуда столько картинок на форме? Вручную бросал что-ли?

Ну да, Василий не один, сотрудников 116).