function TSQLTable.ExportTable(TableName,FileName,FilePath:string):integer;
var oBulkCopy,oTableDest:Variant;
     LogFile:string;
     LogFileExtLength:integer;
begin
  Result:= 0 ;
      oBulkCopy:= CreateOleObject('SQLDMO.BulkCopy');
      oTableDest:= FDatabase.Tables.Item(TableName);
      if trim(FileName)='' then FileName:=TableName+'.bcp';
      if trim(FilePath)='' then FilePath:=AddBackSlash(ExtractFilePath(ParamStr( 0 )));
      if IsDirectoryExists(FilePath) then begin oBulkCopy.DataFilePath:=AddBackSlash(FilePath)+FileName;
        oBulkCopy.SetCodePage(SQLDMOBCP_ACP);
        oBulkCopy.ExportWideChar:=True;
        LogFile:=RemoveFileExt(FileName)+'.log';
        oBulkCopy.LogFilePath:=AddBackSlash(FilePath)+LogFile;
        oBulkCopy.DataFileType:=SQLDMODataFile_TabDelimitedChar;
        oTableDest.ExportData(oBulkCopy);
      end;
end;