Reported by Phil Hess, Apr 5, 2009

For example:

function Pos(SubStr: System.String; AStr: DelphiString) : Integer;
begin
  Result := ShineOn.Rtl.Pos(DelphiString(SubStr), AStr);
end;

function Trim(AStr: DelphiString) : DelphiString;
begin
  Result := ShineOn.Rtl.Trim(System.String(AStr));
end;

function UpperCase(AStr: DelphiString) : DelphiString;
begin
  Result := SysUtils.UpperCase(AStr);
end;

All of the functions in SysUtils that take or return strings need 
DelphiString overloads so they can be nested with calls to 
DelphiString functions in System.