procedure TForm2.mmanage_1Popup(Sender: TObject);
begin try
Savemediafile1.Enabled :=(minfo_list.ItemIndex>-1);
Deletemediafile1.Enabled :=Savemediafile1.Enabled;
SaveVideoAudioFile1.Enabled :=(SaveVideoAudioFile1.Visible)and(minfo_list.ItemIndex>-1);
PlaySelectedmedia1.Enabled :=not Enableautomaticplayback1.Checked;
N25.Visible :=PlaySelectedmedia1.Enabled;
PlaySelectedmedia1.Visible:=PlaySelectedmedia1.Enabled;
PlaySelectedmedia1.Enabled:=PlaySelectedmedia1.Enabled and(minfo_list.ItemIndex>-1);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B50000');
end;End;