uses   TypInfo;         function   TForm1.SetControlProp(ComStr,   value:   string):   boolean;     var   ComName,   ComProp:   string;             i:   integer;         Loop:   Integer;         PropInfo:   PPropInfo;         cp:   TComponent;     begin         i   :=   Pos(‘.‘,   ComStr);         if   i   >   0   then         begin             ComName   :=   copy(ComStr,   1,   i-1);             ComProp   :=   Copy(Comstr,   i+1,   1000);             cp   :=   FindComponent(ComName);             PropInfo   :=   GetPropInfo(cp.ClassInfo,   ComProp);             if   Assigned(PropInfo)   then                 SetStrProp(cp,   PropInfo,   value);         end;     end;         procedure   TForm1.Button3Click(Sender:   TObject);     begin       SetControlProp(‘button1.caption‘,   ‘test‘);   // 設置button1的caption   為   test     end;