Delphi导出数据库数据到TXT

procedure Tmainform.getdatabasedata(db,tb,us,pw:string);
var
  sql:string;
begin
  sql:='EXEC master..xp_cmdshell '+#39+'bcp "select * from '+db+'..'+tb+'" queryout "c:/'+tb+'.txt" -c -S"(local)" -U"'+us+'" -P"'+pw+'" '+#39;
  query1.SQL.Clear;
  query1.ParamCheck:=False;//不加这个会报错，不正常添加参数信息
  query1.SQL.Add(sql);
  query1.ExecSQL;
end;