[MiraLaklamon]

Сообщение от mpdasa

А что мне в самом цикле процедуры написать вместо слов LabelN?

Код:

SetComponentBorder(Label1, d);

То есть как оформить эту единственную строку цикла?

Простите, может очень уж простые вопросы, но в программировании я новичёк.

Код:

var
  i: Integer;
begin
  for i := 1 to 4 do
  begin
    SetComponentBorder(FindComponent('Label'+IntToStr(i)) as TLabel, d);
  end;
end;