Так и s:=Copy(str,1,20) вроде тоже цикл, а не фотография.
(For i:=1 to 20 do s:=s+str[i];)