Me gustaría que MessageDlg aparezca centrado en su forma principal. ¿Alguna sugerencia sobre cómo lograr esto en Delphi 2010?

Encontré el código a continuación aquí:http://delphi.about.com/od/formsdialogs/l/aa010304a.htm Pero no está funcionando para mí. La ventana emergente todavía no está centrada en el formulario del propietario. (No está claro para mí cómo el método realmentesaber el formulario del propietario ...)

 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;