Maps a string to a Delphi page control property name

Code
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 ' ); // Set the caption of button1 to test
End ;