MessageDlg有关问题

MessageDlg问题
如何让弹出的对话框的标题、按钮的文字都是汉字显示？

[解决办法]
if application.MessageBox(Pchar( '目标文件夹非空其大小为 '+inttostr(sFileSize)+ ',确定要继续吗? '), '提示 ',1)=2 then begin
exit;
end;