Iba a comentarte que con casi 70 mensajes ya deberías haber aprendido a usar TAGS, aunque veo que otra persona (marcos) ya ha hecho el trabajo.
En cuanto al error, pues el primero se debe a que en varios sitios haces referencia a qpagar sin poner delante dm. como has hecho en la primera línea.
Personalmente nunca me ha gustado el with, porque a veces lía más las cosas y da más problemas que las ventajas que ofrece. Este es un ejemplo de ello.
Mi opinión es que elimines el with y pruebes el código sin él.
El segun error es por esta línea:
Código Delphi
[-]editTotal.Text:=dm.qpagar;
en la que estás intentando asignar a un string (izquierda) una cosa que es un TQuery/TTable (derecha).
EDITO: Veo que Marcos ya ha completado el mensaje.
por faor utiliza TAGs.