MessageDlg('Are you sure that you want to delete this record?, 'Please Confirm',mtConfirmation,[mbYes,mbNo],mbNo,CheckDelete,True);