(自定义函数体怎么调用memo1控件)在自定义函数体内怎么将string变量值加入到memo1.lines.add()

(自定义函数体如何调用memo1控件)在自定义函数体内如何将string变量值加入到memo1.lines.add()?
(自定义函数体如何调用memo1控件)在自定义函数体内如何将string变量值加入到memo1.lines.add()?

应该很简单啊 ，但是为什么我以调用就出错啊？

[解决办法]
var
 s:string;
beign
 s:='张三';
 memo1.lines.add(s);
end;
[解决办法]
function WriteMemo(AMemo :TMemo;S:string):integer;
begin
Result :=AMemo.Lines.Add(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
S :string;
R :integer;
begin
S := 'TMemo Lines Add a String';
R := WriteMemo(Memo1,S);
showmessage('已在Memo1写入:'+IntToStr(R)+' 行字符串!');
end;