{Вероятно, вы захотите заменить "is TButton.." на что-то другое, что вы определили в родителе.. напишите просто if Components[i] in myset ... в моем примере я перебираю около 40 объектов, чтобы найти свойство TFont и изменить его свойство TPitch ... может быть существует путь легче?}
procedure TForm1.FormCreate(Sender: TObject); var
i: Integer;begin
for i := 0 to ComponentCount -1 do if Components[i] is TButton then TButton(Components[I]).Font.Pitch :=fpFixed ; end;
