Hmm..
Oder mach es doch einfach mit einer rückwärts laufenden Schleife
Delphi-Quellcode:
function InsertUnderLine(AText : string; aPos : byte):string;
var
i : integer;
begin
result := AText;
for i := length(AText)-1 downto 1 do begin
if ((i mod aPos) = 0) then
insert('_',result,i+1);
end;
end;
Mit 'for' kann man nicht nur 'hochzählen' sondern auch 'runterzählen'