Как сделать MessageDlg центрированным на форме владельца

Я бы хотел, чтобы MessageDlg отображался в центре своей родительской формы. Есть предложения, как это сделать в Delphi 2010?

Я нашел код ниже: http://delphi.about.com/od/formsdialogs/l/aa010304a.htm , но он не работает для меня. Всплывающее окно по-прежнему не сосредоточено на форме владельца. (Мне неясно, как метод на самом деле узнает форму владельца ...)

 function TForm1.MessageDlg(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons; HelpCtx: Integer): Integer;
 begin
   with CreateMessageDialog(Msg, DlgType, Buttons) do
     try
       Position := poOwnerFormCenter;
       Result := ShowModal
     finally
       Free
     end
 end;