关于错误“Incompatible types”……

卡布基米

      新人不懂格式，还望见谅。                       这两天看了小甲鱼老师的教学视频，印象很深，我看的是：凯撒密码和栅栏密码-密码学基础01，视频中最后说道用C和delphi各自实现了凯撒密码，我也手痒痒试着做了一遍，（因为鱼币不足无法下载源码，好痛苦……）C语言的，很快就在控制台中实现了。但是delphi的我弄了好久，一直没能成功，也许是我的思路不对，我在form里添加了两个文本框和一个按钮，希望的是在Edit1中输入任意字母，按下按钮，Edit2中就输出加密后的文本。以下是用于实现加密的procedure，但是一直在报错，求大神解救！！！！！！！报错类型为“Incompatible types”，出错位置为红色字体


procedure TCaesarMain.encryption;
var
i,j:integer;
Arr1,Arr2:array of char;
m,c: string;
begin
m:=Edit1.text；
setlength(Arr1,sizeof(m)); //设置数组长度为输入字串长度
StrCpoy(@Arr1,PChar(m)); //将字符串中的每个字符赋给数组Arr1
for i:=1 to sizeof(m) do
begin
for j=1 to i do
   begin
   if ord(Arr1[i])>64  and ord(Arr1 )<91  then
   Arr2[j]:= chr((ord(Arr1)-65+3)mod 26+65);
   if ord(Arr1)>96  and ord( Arr1)<123 then
   Arr2[j]:= chr((ord (Arr1)-65+3)mod 26+65); //判断字符ASCII码并移位
   end;
end;
Edit2.Text:=PChar(@Arr2);
end;[i][i][i][i][i][i]
[/i][/i][/i][/i][/i][/i]

卡布基米

不知道为什么保存一直出问题，if 判断的条件是：
if 0rd(Arr[i])>64 and ord(Arr1[i])<91