FCL-Net: many non-const string params
Continuation of #40047. 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);
```
issue