定义的变量和参数同名了。去掉或该一下。Procedure MyProc(var var1,var2:string);
begin
  MyProc(Var1,var2);
end;