procedure WideShowMessagePos(const Msg: WideString; X: Integer; Y: Integer);

TntDialogs

TNT-WARN ShowMessagePos