ы хотелось, чтобы 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;