WITH QGRAVA.SQL DO BEGIN Clear; Append('INSERT INTO VENDACAB ( CLIENTE, PEDIDO, DATA )' ); Append(' VALUES ( '); Append( QuotedStr(qClientesCODIGO.Value) +', '); Append( QuotedStr( NUMEROPEDIDO )+', '); Append( DATETOSTR( DATE )+ ', ' ); ************************ O ERRO DA NESTA LINHA ... ... END; grato