index da79055db8e9d30ffabfc3e5eb9fcfbb74be978c..c958c7b86473220dc30b38a356aa396bf90d9d2b 100644 (file)
procedure TFluidLoader.Free();
begin
- if FPlayer <> nil then delete_fluid_player(FPlayer);
+ if FPlayer <> nil then
+ begin
+ fluid_player_stop(FPlayer);
+ delete_fluid_player(FPlayer);
+ end;
if FSynth <> nil then delete_fluid_synth(FSynth);
FPlayer := nil;
FSynth := nil;