[.Quattro.]

http://msdn.microsoft.com/en-us/library/x83z1d9f(VS.85).aspx

В наве это будет примерно так:

WShell: Automation 'Windows Script Host Object Model'.WshShell	
Title: Text 30
Buttons: Integer
SecToWait: Integer
ResInt: Integer
***************
Title := 'Заголовок сообщения';
Buttons := 3;
CREATE(WShell);
ResInt := WShell.Popup('Текст сообщения',SecToWait,Title, Buttons);

Message('%1', ResInt);