My property name Label1_Caption, and i found this components I set the value.
Below the code, but I don know how to component set the property name (concate string ‘Label1’+’_’+’Caption’)

procedure TForm1.FormCreate(Sender: TObject);
var
  i, p, k: Integer;
  pp: PPropList;
  pi: PPropInfo;
begin
  for I := 0 to ComponentCount-1 do begin // Loop Components
    p := GetPropList(Components[i],pp);
    for k := 0 to p-1 do begin // Loop Components[i] properties
      pi := pp^[k];
      if (IsPublishedProp(TMyClass,Components[i].Name+'_'+pi.Name)) then begin // Label1_Caption
    // How to get Label1_Caption property value? 
    // Property value is concate string
        SetPropValue(Components[i],pi.Name,???);
      end;
    end;
  end;
end;