Var a:Integer;
    b:String;
Begin
a:=100;
b:=IntToStr(a);
Application.messagebox(b,'转换',mb_iconinformation + mb_defbutton1 + mb_ok);
End;