¿Qué base de datos estás usando?
Aparte de tu pregunta, esto te puede traer muchos problemas:
Código Delphi
[-]DM.QryPacientesidpaciente.Value := DM.QryPacientes.RecordCount + 1;
Es mejor que uses algo como:
Código SQL
[-]select max(idpaciente)+1 from tbPacientes;