[Amgsys HQ]

Код при нажатии на кнопку:

Код:

procedure TMyForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if TLabel(Components[i]).Font.Color = clRed then
      begin
        TLabel(Components[i]).Font.Color := clBlack;
        TLabel(Components[i]).Top := TLabel(Components[i]).Top + 1;
      end;
end;