[أبو عمر]

حاولت اطبقها من  هنا الكثير منها لم تعمل معي
http://wiki.freepascal.org/Dialog_Examples
مثلا هذه
QuestionDlg
Question dialog allows changing button captions and setting default and cancel buttons. Example:
   case QuestionDlg ('Caption','Message',mtCustom,[mrYes,'Positive', mrNo, 'Negative', 'IsDefault'],'') of
       mrYes: QuestionDlg ('Caption','So you mean „Yes“',mtCustom,[mrOK,'That is right'],'');
       mrNo:  QuestionDlg ('Caption','Oh, you mean „No“',mtCustom,[mrOK,'Exactly'],'');
       mrCancel: QuestionDlg ('Caption','You canceled the dialog with ESC or close button.',mtCustom,[mrOK,'Exactly'],'');
   end;


الغريب يعطيني الخطأ عند case
هل انا بحاجة لتحميل حزمة معينة واضيفها للبرنامج Package 
ممكن احد يشوف لي حل؟
مع انه ما فيه استلطاف بيني وبين محرر الكود اللي فيها
بس احس ان لها مستقبل في البرمجة راح يفوق ميكروسوفت