delphi加密函数问题

定义一个加密解密函数   
function Encode(s:string):string ;
var
n,i :integer ;
str:string ;
begin
n:=length(s) ;
str:= ''   ;
for i:=1 to n do
begin
str :=str+ char(ord(s[i])-1) ;
end;
encode:=str ;
end;
function Decode(s:string):string ;
var
n,i:integer ;
str:string ;
begin
n:=length(s);
str:= ' ' ;
for i:=1 to n do
begin
str:=str+char(Ord(s[i])+1) ;
end;
Decode:=str ;
end;
======
打开文本  
=========
procedure TForm1.OpenClick(Sender: TObject);
var
Textvar : Textfile  ;
TextLine :string ;
begin
if opendialog1.Execute then
begin
MemoB.Clear ;
caption:= '文本加密器' +Opendialog1.FileName ;
 AssignFile(TextVar,Opendialog1.FileName) ;
 Reset(TextVar) ;
 while not eof(TextVar) do
 begin
 ReadLn(TextVar,TextLine);
 MemoB.Items.Add(textLine);
 end;
 closefile(TextVar) ;
  end;
end;=====
加密是出错 
procedure TForm1.EncodeClick(Sender: TObject);
begin
Memob.Items:=Encode(Memob.Items )  ;
end;
========Missing operator or semicolon
错误信息 如何解决？