如何将一个字符串映射为一个Delphi控件属性名

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');
end;