طلب تصحيح هذا الكود

هل هو صعب يا اخوة

فقط السطر الاول عندما اريد تنفيد البرنامج يأطر بسطر احمر

جرب إقلب الأسطر. الأول إجعله الأخير والأخير إجعله الأول.

السلام عليكم

أخي الكريم جرب

procedure TForm1.Button1Click(Sender: TObject);
begin
realaudio1.Source := 'http://www.tvislamic.com/radio/arabie-saoudite.htm';
realaudio1.DoPlay;
end;

البرنامج لن يفتح شيء لأن الرابط خطأ على ما أظن جرب أن تسبدل السطر الأول بهذا

realaudio1.Source := 'e:\test.mp3';

أرجو الأستفادة