Nombre se repite en impresion de ticket

[chino150]

Hola a todos

Tengo el siguiente problema en la impresion de un ticket tipo recibo
se repite el nombre del cliente en todos los ticket ultizo delphi 6 la tabla esta en paradox 7 el database desktop, la impresora es Samsung Bixolon SRP-275.

Código Delphi [-]
procedure TfrmMain.BitBtn1Click(Sender: TObject);
var Fecha : String;
Ticket: TextFile;
Total, Efectivo, Cambio : Double;
xdes, xval, xtot, xpag, xcam: ShortString;
xsum: Double;
begin
    Fecha := DateToStr(Now);
     TIngresosFecha.AsString := Fecha;
     Total := TIngresosValor.Value;
     Efectivo := TIngresosEfectivo.Value;
     Cambio := Total - Efectivo;
     TIngresosCambio.Value := Cambio;
     TIngresos.Post;
     try
    AssignPrn(Ticket);
    //AssignFile(Ticket, 'LPT1');
    Rewrite(Ticket);
    Writeln(Ticket,#27#64);
    Writeln(Ticket,'Ministerio Bendicion Inc.');
    Writeln(Ticket,'C/Ambar No.109 Ens. Papagayo');
    Writeln(Ticket,'La Romana RD. 22000');
    Writeln(Ticket,'Tel: 809-556-4914');
    Writeln(Ticket,'Tel: 809-550-8266');
    Writeln(Ticket,'RNC: #4-12-02047-1');
    Writeln(Ticket,'E-Mail: [email protected]');
    Writeln(Ticket,'Website: www.bendicionfm.com');
    Writeln(Ticket,'');
    Writeln(Ticket,'Fecha: '+DateToStr(Now));
    Writeln(Ticket,'Recibo: '+DBText1.Caption+'');
    Writeln(Ticket,'Colaborador: '+ QConsulta.FieldByName('Nombre').asString);
    Writeln(Ticket,'');
    QConsulta.Close;
    QConsulta.SQL.Clear;
    QConsulta.SQL.ADD('Select * From Ingresos where NoRecibo='+DBText1.Caption);
    QConsulta.Open;
    Writeln(Ticket,'-------------------------------');
    Writeln(Ticket,'Descripcion              Valor ');
    Writeln(Ticket,'-------------------------------');
    xsum := 0;
    QConsulta.Close;
    QConsulta.SQL.Clear;
    QConsulta.SQL.Add('Select * from Ingresos where NoRecibo='+DBText1.Caption);
    QConsulta.Open;
    QConsulta.First;
     while not QConsulta.Eof do
     begin
     xdes := copy(QConsulta.fieldbyname('desc').AsString,1,20);
     xval := format('%8.2f',[QConsulta.fieldbyname('valor').asFloat]);
     xsum := xsum + QConsulta.fieldbyname('valor').AsFloat;
     Writeln(Ticket,xdes+'                    '+xval);
     QConsulta.Next;
     end;
     Writeln(Ticket,'-------------------------------');
     xtot := FloatToSTR(xsum);
     xpag := FloatToSTR(Efectivo);
     xcam := FloatToSTR(Cambio);
     Writeln(Ticket,'Total:  RD$'+xtot);
     Writeln(Ticket,'Efectivo:  RD$'+xpag);
     Writeln(Ticket,'Cambio:  RD$'+xcam);
     Writeln(Ticket,'-------------------------------');
     Writeln(Ticket,'Dios les Bendiga');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,'');
     Writeln(Ticket,#27#105); // Cortar
     finally
      CloseFile(Ticket);
     end;
end;