FCL-Net: many non-const string params

Continuation of #40047 (closed). In SUBJ package using the same RegEx, I found many non-const str params. Full log:

+Search "[\(;]\s*\w+\s*:\s*string". Report with [styles].
	<resolve.pp>: #11
		<  62>:     Procedure CheckOperation(Msg : String);
		< 140>:     Function PortLookup (APort : Longint; Proto: string) : Boolean;
		< 160>:     Procedure SetElement (Index : Integer; Value : String);Virtual;
		< 163>:     Procedure SetURI(Value : String);
		< 166>:     Procedure ParseUri(AURI : String);
		< 251>: Procedure TResolver.CheckOperation(Msg : String);
		< 597>: Function TServiceResolver.PortLookup (APort: Longint; Proto : String) : Boolean;
		< 647>: Function TServiceResolver.PortLookup (APort: Longint; Proto : String) : Boolean;
		< 702>: Procedure TURIParser.SetElement (Index : Integer; Value : String);
		< 745>: Procedure TURIParser.SetURI(Value : String);
		< 771>: Procedure TURIParser.ParseUri(AURI : String);
	<sslbase.pp>: #2
		<  58>:     procedure SetString(AIndex: Integer; AValue: String);
		< 160>: procedure TCertificateData.SetString(AIndex: Integer; AValue: String);
	<sslsockets.pp>: #2
		<  48>:     procedure SetString(AIndex: Integer; AValue: string);
		< 144>: procedure TSSLSocketHandler.SetString(AIndex: Integer; AValue: string);
	<netdb.pp>: #42
		< 234>: Function GetDNSServers(FN : String) : Integer;
		< 239>: Function ResolveName(HostName : String; Var Addresses : Array of THostAddr) : Integer;
		< 240>: Function ResolveName6(HostName : String; Var Addresses : Array of THostAddr6) : Integer;
		< 249>: Function ResolveHostByName(HostName : String; Var H : THostEntry) : Boolean;
		< 253>: Function ResolveHostByName6(Hostname : String; Var H : THostEntry6) : Boolean;
		< 257>: Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
		< 262>: Function GetNetworkByName(NetName: String; Var N : TNetworkEntry) : boolean;
		< 271>: Function GetProtocolByName(ProtoName: String;  Var H : TProtocolEntry) : boolean;
		< 275>: Function ProcessHosts(FileName : String) : PHostListEntry;
		< 283>: Function BuildPayLoad(Var Q : TQueryData; Name : String; RR : Word; QClass : Word) : Integer;
		< 284>: Function BuildPayLoadTCP(Var Q : TQueryDataLength; Name : String; RR : Word; QClass : Word) : Integer;
		< 311>: function DnsLookup(dn: String; qtype: Word; out Ans: TQueryData;
		< 313>: function DnsLookup(dn: String; qtype: Word; out Ans: TQueryDataLengthTCP;
		< 416>: Function MatchNameOrAlias(Const Entry,Name: String; Aliases : String) : Boolean;
		< 455>: Function FillHostEntry (Var Entry : THostEntry; L: String) : boolean;
		< 478>: Function ProcessHosts(FileName : String) : PHostListEntry;
		< 591>: Function FindHostEntryInHostsFile(N: String; Addr: THostAddr; Var H : THostEntry) : boolean;
		< 693>: Function GetDNSServers(Fn : String) : Integer;
		< 702>:   Function CheckDirective(Dir : String) : Boolean;
		< 802>: Function BuildPayLoad(Var Q : TQueryData; Name : String; RR : Word; QClass : Word) : Integer;
		< 855>: function BuildPayLoadTCP(var Q: TQueryDataLength; Name: String; RR: Word;
		<1119>: function DnsLookup(dn: String; qtype: Word; out Ans: TQueryData; out
		<1149>: function DnsLookup(dn: String; qtype: Word; out Ans: TQueryDataLengthTCP; out
		<1907>: Function ResolveNameAt(Resolver : Integer; HostName : String; Var Addresses : Array of THostAddr; Recurse: Integer) : Integer;
		<1953>: Function ResolveName(HostName : String; Var Addresses : Array of THostAddr) : Integer;
		<1971>: Function ResolveNameAt6(Resolver : Integer; HostName : String; Var Addresses : Array of THostAddr6; Recurse: Integer) : Integer;
		<2037>: Function ResolveName6(HostName: String; Var Addresses: Array of THostAddr6) : Integer;
		<2050>: Function ResolveAddressAt(Resolver : Integer; Address : String; Var Names : Array of String; Recurse: Integer) : Integer;
		<2167>: Function ResolveHostByName(HostName : String; Var H : THostEntry) : Boolean;
		<2223>: Function ResolveHostByName6(HostName : String; Var H : THostEntry6) : Boolean;
		<2293>: Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
		<2346>: Function FindProtoEntryInProtoFile(N: String; prot: integer; Var H : TProtocolEntry) : boolean;
		<2380>: Function GetProtocolByName(ProtoName: String;  Var H : TProtocolEntry) : boolean;
		<2448>: Function FindNetworkEntryInNetworksFile(Net: String; Addr: TNetAddr; Var N : TNetworkEntry) : boolean;
		<2484>: Function GetNetworkByName(NetName: String; Var N : TNetworkEntry) : boolean;
		<2674>: Function ResolveName(HostName : String; Var Addresses : Array of THostAddr) : Integer;
		<2679>: Function ResolveName6(HostName : String; Var Addresses : Array of THostAddr6) : Integer;
		<2719>: Function ResolveHostByName(HostName : String; Var H : THostEntry) : Boolean;
		<2731>: Function ResolveHostByName6(Hostname : String; Var H : THostEntry6) : Boolean;
		<2785>: Function GetHostByName(HostName: String;  Var H : THostEntry) : boolean;
		<2809>: Function GetNetworkByName(NetName: String; Var N : TNetworkEntry) : boolean;
		<2863>: Function GetProtocolByName(ProtoName: String;  Var H : TProtocolEntry) : boolean;
	<ssockets.pp>: #4
		< 274>:     Constructor Create(AFileName : String; AHandler : TSocketHandler = Nil);
		< 325>:     Constructor Create(AFileName : String); Overload;
		<1322>: Constructor TUnixServer.Create(AFileName : String; AHandler : TSocketHandler = Nil);
		<1594>: Constructor TUnixSocket.Create(AFileName : String);