How to get component property values?

Question

Delphi

Can you please tell me how to pass the class type to the procedure? I want to know the values ​​of the component properties

procedure TformMain.SetProperties(FormName: Tform; ClassName, SomeProperty: string;
                                  Value, ClassNamePStart, ClassNamePStop: Integer; Condition: string; ClassType: Tclass);

var  i: integer; PropInfo: PPropInfo; Component: TComponent;

begin


  for i := 0 to FormName.ComponentCount - 1 do
  begin
    Component := FormName.Components[i];

   if ClassName = copy(Component.GetNamePath, ClassNamePStart, ClassNamePStop)  then
    begin

  if Condition <> ''  then
   begin
    with findcomponent(Component.GetNamePath) as ClassType do

    ShowMessage(Hint);
   end;

      PropInfo := GetPropInfo(Component.ClassInfo, SomeProperty);
      if Assigned(PropInfo) then
        SetOrdProp(Component, PropInfo, Integer(Value));
    end;
  end;
end;

SetProperties(formMain, 'rps_rb', 'enabled', 1, 0, 6, 'hint', TRadioButton);

Answer 1

ShowMessage(TControl(FindComponent(Component.Name)).Hint);