use SPPREFIX
COPY all TO D:\111.TXT TYPE SDF DELIMITED WITH '|'

---------------------------
Debugger Exception Notification
---------------------------
'Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE''.
---------------------------
Break   Continue   Help   
---------------------------

COPY TO mytxt.txt DELIMITED WITH _ WITH CHARACTER ';'

COPY TO mytxt.txt DELIMITED WITH _ WITH CHARACTER ';'

  ....
COPY TO 'D:\111.TXT' ALL TYPE SDF DELIMITED WITH '|'

  ....
COPY TO 'D:\111.TXT' ALL TYPE SDF DELIMITED WITH '|'

USE SPPREFIX COPY TO 'D:\111.TXT' ALL TYPE SDF DELIMITED WITH '|'

select * from SPPREFIX COPY 'D:\111.TXT' ALL TYPE SDF DELIMITED WITH '|'

---------------------------
Debugger Exception Notification
---------------------------
message 'Ошибка синтаксиса в предложении FROM'.
---------------------------
Break   Continue   Help   

ExecScript ('use SPPREFIX COPY TO ''D:\111.TXT'' ALL TYPE DELIMITED WITH ''|''  ')

---------------------------
Debugger Exception Notification
---------------------------
'Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE''.
---------------------------
Break   Continue   Help   
---------------------------

procedure TMainFrm.Button1Click(Sender: TObject);
begin
  ADOCommand1.ConnectionString := Format(DBF_CONNECTION_STRING, ['D:\files_dbf']);
  ADOCommand1.CommandText:='use SPPREFIX';
  ADOCommand1.Execute;
  ADOCommand1.CommandText:='COPY TO D:\111.TXT ALL TYPE SDF DELIMITED WITH ''|''';
  ADOCommand1.Execute;

  {ADOCommand1.ConnectionString := Format(DBF_CONNECTION_STRING, ['D:\files_dbf']);
  ADOCommand1.Execute;}

  {ADOQuery1.ConnectionString := Format(DBF_CONNECTION_STRING, ['D:\files_dbf']);
  ADOQuery1.ExecSQL;}
end;

DBF_CONNECTION_STRING =
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended '+
    'Properties=dBASE IV;User ID=Admin;Password=;';