关于messagedlg的问题

[twowood]

如何改变messagedlg的标题？

[H999]

下面这段代码可以改变。
procedure Tmainfm.Button1Click(Sender: TObject);
begin
application.Title := 'aa';
MessageDlg('Test.', mtCustom,
[mbOk], 0);
application.Title := 'bb';
MessageDlg('Test.', mtCustom,
[mbOk], 0);
end;