[davidmedina29]

Muchas gracias ecfisa!!

ya quedo

Código Delphi [-]
    if not Q_Auxi.IsEmpty then
    begin
    if not Q_Auxi.Fields.Fields[0].IsNull then
      cxTextEdit1.Text := Q_Auxi.Fields.Fields[0].Value
    else
      cxTextEdit1.Text := '1';
    end

Saludos