Código Delphi [-]QuotedStr(nombre) +','+ QuotedStr(direccion) +','+ ......
QuotedStr(nombre) +','+ QuotedStr(direccion) +','+ ......