Utiliza las etiquetas de código e indenta:
Código Delphi
[-]
AcumuladoVentas;
ACUMULADO:=StrToFloat(lbAcumulado.Caption);
MONTOTOTAL:=StrToFloat(lbMtoFac.Caption);
If (ACUMULADO+MONTOTOTAL) <= CONFIG.MtoMaxZ Then Imprimir:=True;
If (ACUMULADO+MONTOTOTAL) > CONFIG.MtoMaxZ Then Begin
Application.MessageBox(Pchar(Documento + lbnumFac.Caption + ' no pódra ser impreso porque al acumularse sobrepasa limite de monto
para un Z.' + #13 + 'Ejecute un reporte Z para continuar con las operaciones'),'INFORMACIÓN', MB_OK OR MB_ICONINFORMATION);
DelLineasCmdNotPrinted;
UpdateDocNoPrint;
BuscarDoc;
End;
La información que das es bastante parca. Application.MessageBox es la API encargada de esa ventana que dices.otra cosa es que las variables que desconocemos Documento y lbnumFac.Caption tangan algún valor válido y que no contengan ceros. Ten en cuenta que la API MessageBox maneja cadenas ASCIIZ, eso quiere decir que un carácter #0 indica el fin de la cadena lo que supone que si esta al principio, no escribirá nada. Ejecuta paso a paso y controla el valor de las variables.
Saludos.