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;