  MessageBox

     :
 function MessageBox(Parent: HWnd; Txt, Caption: PChar; TextType: Word): Integer;

       p  , p    ,   pp p   ,    pp TexType.

     pp:
     Parent: ,   .
     Txt: p  (  ).
     Caption:    (  )  nil  "Error" ("").
     TextType:     mb_. . p "  , mb_"   1.

     p :
        p    : id_Abort, id_Cancel, id_Ignore, id_No, id_OK, id_Retry  id_Yes. . p "p   , id_"   
1.

     user32.dll