Krátké řetězce jsou i v delfách, např. var S:string[12] je v podstatě array[0..12] of char, kde nultý znak je délka. V TP se přiřazuje pouze do názvu funkce.

function MojeCopyTP(ret: string; odkud, kolik: integer): string;
var
  i: Integer;
  S: string;
begin
  S := '';
  if Length(ret) < odkud + kolik then
    kolik := Length(ret) - odkud;
  for i := odkud to odkud + kolik - 1 do
    S := S + ret[i];
  MojeCopyTP := S
end;