Source position: GPCStrings.pas line 365
procedure DeleteStr15(
var theDest: Str15;
theStart: Integer;
theCount: Integer
);