delphi 字符串逐字插入字符

//字符串逐字插入字符
function insertstrchar(const str:string):string;
var
      C :Char;
      S : String;
begin
  for i:= 1 to Length(str) do begin
    S:=S+Str[i]+'.';
  end;
  insertstrchar := copy(S, 1, length(S) - 1);
end;