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