qCostes := TFDquery.Create(Application);
qCostes.Connection := conexion;
qDocumentos := TFDquery.Create(Application);
qDocumentos.Connection := conexion;
qCostes.Close; qCostes.sql.Clear;
qDocumentos.Close;
qDocumentos.SQL.Clear;
. . .
qCostes.Free;
qDocumentos.Free;