Source position: GPCStrings.pas line 367
procedure DeleteStr31(
var theDest: Str31;
theStart: Integer;
theCount: Integer
);