+ test for #33559

tests/webtbs/tw33559.pp

@@ -0,0 +1,18 @@
+{$mode delphi}
+program Project1;
+{$APPTYPE CONSOLE}
+uses SysUtils, StrUtils;
+const
+  FullStr = '123'#0'45';
+  TestStr = '123'#0'!';
+begin
+  Writeln('StartsWith=', FullStr.StartsWith(TestStr));
+  if FullStr.StartsWith(TestStr) then
+    halt(1);
+  Writeln('Pos=', Pos(TestStr, FullStr) > 0);
+  if Pos(TestStr, FullStr) > 0 then 
+    halt(1);
+  Writeln('StartsText=', StartsText(TestStr, FullStr));
+  if StartsText(TestStr, FullStr) then
+    halt(1);
+end.