كيف التعامل مع الصوت من داخل التطبيق

[mishlimited]

أخي ابو عبد العزيز
جزاك الله كل خير أولا
ثانيا : في ظني أن المكون كما أخبرتني من قبل هو سبب الخرخشة و ليست ملفات mp3
ذلك أن الملفات حجمها كبير و يبدو ان المكون لا يتحمل طولها
و عليه فانا الان أحاول استخدام تشغيل الصوت من داخل البيئة الاصلية للدلفي بدون مكونات اضافية
كما هو الكود الاول و هو يعمل بشكل جيد و بدون خرخشة لكن تنقصني ازرار فقط
توصلت بعد البحث الى امكانية ايقاف الصوت باستخدام الكود التالي في زر الايقاف

procedure TForm1.Button2Click(Sender: TObject);
begin
sndPlaySound(nil, 0); // Stops the sound
Button1.Enabled:=true;
Button3.Enabled:=true;
Button2.Enabled:=False;
end;

لكن يبقى كود التوقف المؤقت و الاستئناف
و هانحن نبحث و نجتهد و شكرا لكم