Merkkijonon jaottelu vasemmalta 4 merkin ryhmiin välilyönneillä

// Merkkijonon jaottelu vasemmalta 4 merkin ryhmiin välilyönneillä eroteltuna:

// Tässä käytetty tyyppiä AnsiString.
// D2009 ja uudemmat: voit halutessasi muuttaa tyypin -> String.
// Tämä on kirjoitettu näin, koska tässä tapauksessa merkkjonot ovat alunperin AnsiString -tyyppisiä

function Space4(S: AnsiString):AnsiString;
var
i,L : Integer;

begin
L := Length(S);
Result := S;

i := ( (L-1) and $ffffFFFC) 1;

while i >= 5 do begin
System.Insert(' ', Result, i);
dec(i, 4);
end;
end;