Source position: GPCStrings.pas line 368
procedure DeleteStr32(
var theDest: Str32;
theStart: Integer;
theCount: Integer
);