程如下：
var
 a : integer ;
begin
    a := 1;
    messagedlg(' a的值是'+a+' ',mterror,[mbok],0);
end;

结果在messagedlg处出错

请高手帮看一下

messagedlg(' a的值是'+a+' ',mterror,[mbok],0);

只允许字符串，即String类型的变量，只要转换为String类型即可：
messagedlg(' a的值是'+inttostr(a)+' ',mterror,[mbok],0);

非常感谢~

ShowMessage一般用法，传的参数是String型 你传的是 int型，类型不匹配肯定要报错
procedure ShowMessage(const Msg: string);