[InTacto]

Для строчного поля, то

For i:=strlen(полеTxt) downto 1 do
  begin
    excel(строкаInt,i + смещение от правого краяInt) = copystr(полеTxt,i,1);
  end