...
  Connection.Open;
  ADOCommand.CommandText := 'restore database [pubs] from pipe = ''\\.\pipe\restorepubs''';
  ADOCommand.Execute;      // запустили восстановление ассинхронно
  try
    {дальше всякий код по открытию канала и засовыванию в него резервной копии
    в процессе выполнения может возникнуть исключение - сгенерируем его!}
     Raise Exception.Create('Типа не могу записать данные в именованный канал');
  except
     on E : Exception do
      begin
         {и вот тут-то и надо прервать выполнение ADOCommand}
          ADOCommand.Cancel; //  А вот не тут-то было! НЕ РАБОТАЕТ!!! 
      end;
  end