假设有如下代码procedure TForm1.FormCreate(Sender: TObject);begin a(edit1.text);end;procedure a(var s:string);begin s:='ll';end;运行时编译出错。有人能告诉我这是为什么吗?应该怎么解决?