Source position: GPCStrings.pas line 360
procedure DeleteStr27(
var theDest: Str27;
theStart: Integer;
theCount: Integer
);