[[AzidRain]]

Por lo que veo no estás usando nada grafico por lo que tu solución es la siguiente:

1.- En lugar de mandar todos los writelns a la impresora, utiliza un TMemo y le añades las cadenas que vas imprmiendo.

En lugar de ...

Código Delphi [-]
    Writeln(Ticket,#27#64);
    Writeln(Ticket,'Ministerio Bendicion Inc.');
    Writeln(Ticket,'C/Ambar No.109 Ens. Papagayo');
    Writeln(Ticket,'La Romana RD. 22000');

Código Delphi [-]
   //MiPreview es un TMemo
    MiPreview.Lines.Add(#27#64);
    MiPreview.Lines.Add('Ministerio Bendicion Inc.');
    MiPreview.Lines.Add('C/Ambar No.109 Ens. Papagayo');
    MiPreview.Lines.Add('La Romana RD. 22000');

Y en automático lo tendrás mostrado en pantalla, ahora para imprimirlo:

Código Delphi [-]
//recorremos todas las lineas del memo y las mandamos a la impresora

  for i:=0 to MiPreview.Lines.Count - 1 Do
   Writeln(Ticket,Mipreview.Lines.Strings[i]);

Limpias Mipreview con MiPreview.Lines.clear y estas listo para otra impresión.