Ses Ekleme

var

    muzikForm: TclGameForm;

    btnAnaKodaGidis: TclButton;

    btnMuzik1, btnMuzik2, btnMuzik3, btnMuzik4, btnMuzik5: TclButton;

    soundFile1, soundFile2, soundFile3, soundFile4, soundFile5: Integer;

void anaFormGidis;

{

    CallerForm.clShow;

}

void BtnMuzik1OnClick;

{

    muzikForm.PlayGameSound(soundFile1);

}

void BtnMuzik2OnClick;

{

    muzikForm.PlayGameSound(soundFile2);

}

void BtnMuzik3OnClick;

{

    muzikForm.PlayGameSound(soundFile3);

}

void BtnMuzik4OnClick;

{

    muzikForm.PlayGameSound(soundFile4);

}

void BtnMuzik5OnClick;

{

    muzikForm.PlayGameSound(soundFile5);

}

{

    muzikForm = TclGameForm.Create(Self);

    

    muzikForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/Fire.wav'); // Müzik 1

    muzikForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/Water.wav'); // Müzik 2

    muzikForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/Wind.wav'); // Müzik 3

    muzikForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/Earth.wav'); // Müzik 4

    muzikForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/Chimes.wav'); // Müzik 5

    

    soundFile1 = muzikForm.RegisterSound('Fire.wav');

    soundFile2 = muzikForm.RegisterSound('Water.wav');

    soundFile3 = muzikForm.RegisterSound('Wind.wav');

    soundFile4 = muzikForm.RegisterSound('Earth.wav');

    soundFile5 = muzikForm.RegisterSound('Chimes.wav');

    

    muzikForm.SoundIsActive = True;

    muzikForm.SetFormColor('#FD5F38', '#FC4966', clGVertical);

    btnMuzik1 = muzikForm.AddNewButton(muzikForm, 'btnMuzik1', 'Müzik 1');

    btnMuzik1.Align = alTop;

    btnMuzik1.Width = 500;

    btnMuzik1.Height = 80;

    btnMuzik1.Margins.Top = 10;

    btnMuzik1.Margins.Left = 2;

    btnMuzik1.Margins.Right = 2;

    btnMuzik1.TextSettings.Font.Size = 14;

    muzikForm.AddNewEvent(btnMuzik1, tbeOnClick, 'BtnMuzik1OnClick');

    btnMuzik2 = muzikForm.AddNewButton(muzikForm, 'btnMuzik2', 'Müzik 2');

    btnMuzik2.Align = alTop;

    btnMuzik2.Width = 500;

    btnMuzik2.Height = 80;

    btnMuzik2.Margins.Top = 10;

    btnMuzik2.Margins.Left = 2;

    btnMuzik2.Margins.Right = 2;

    btnMuzik2.TextSettings.Font.Size = 14;

    muzikForm.AddNewEvent(btnMuzik2, tbeOnClick, 'BtnMuzik2OnClick');

    btnMuzik3 = muzikForm.AddNewButton(muzikForm, 'btnMuzik3', 'Müzik 3');

    btnMuzik3.Align = alTop;

    btnMuzik3.Width = 500;

    btnMuzik3.Height = 80;

    btnMuzik3.Margins.Top = 10;

    btnMuzik3.Margins.Left = 2;

    btnMuzik3.Margins.Right = 2;

    btnMuzik3.TextSettings.Font.Size = 14;

    muzikForm.AddNewEvent(btnMuzik3, tbeOnClick, 'BtnMuzik3OnClick');

    btnMuzik4 = muzikForm.AddNewButton(muzikForm, 'btnMuzik4', 'Müzik 4');

    btnMuzik4.Align = alTop;

    btnMuzik4.Width = 500;

    btnMuzik4.Height = 80;

    btnMuzik4.Margins.Top = 10;

    btnMuzik4.Margins.Left = 2;

    btnMuzik4.Margins.Right = 2;

    btnMuzik4.TextSettings.Font.Size = 14;

    muzikForm.AddNewEvent(btnMuzik4, tbeOnClick, 'BtnMuzik4OnClick');

    btnMuzik5 = muzikForm.AddNewButton(muzikForm, 'btnMuzik5', 'Müzik 5');

    btnMuzik5.Align = alTop;

    btnMuzik5.Width = 500;

    btnMuzik5.Height = 80;

    btnMuzik5.Margins.Top = 10;

    btnMuzik5.Margins.Left = 2;

    btnMuzik5.Margins.Right = 2;

    btnMuzik5.TextSettings.Font.Size = 14;

    muzikForm.AddNewEvent(btnMuzik5, tbeOnClick, 'BtnMuzik5OnClick');

    btnAnaKodaGidis = muzikForm.AddNewButton(muzikForm, 'btnAnaKodaGidis', 'Ana Sayfaya Dön');

    btnAnaKodaGidis.Align = alTop;

    btnAnaKodaGidis.Margins.Top = 100;

    btnAnaKodaGidis.Width = 300;

    btnAnaKodaGidis.Height = 80;

    muzikForm.AddNewEvent(btnAnaKodaGidis, tbeOnClick, 'anaFormGidis');

    

    muzikForm.Run;

}

Uygulamam pomodoro uygulaması bu sayfadan da ses seçim Uniti yapmaya çalıştım btnMuzik1 çalışıyor ama diğer butonlara tıkladığımda RUNTIME ERROR hatası alıyorum nasıl ses ekleyebilirim ?