用mediaplay控件做一个全屏播放器用做点歌系统,请问如何在歌曲播放完成后释放内存?(200分)

用mediaplay控件做一个全屏播放器用做点歌系统,请问如何在歌曲播放完成后释放内存?一以前用过这个问题都没有很好解决,每当系统工作10多个小时后,内存几乎耗尽,然后提示虚拟内存不足,系统当机,请高人指点!

procedure TMainForm.menuCorporationTypeCodeClick(Sender: TObject);
var
frmCodeCorporationType : TfrmCodeCorporationType;
begin

frmCodeCorporationType := TfrmCodeCorporationType.Create(Self);
try
frmCodeCorporationType.ShowModal;
finally
frmCodeCorporationType.Free;
end;

end;

有哪老兄有更好的答案吗?