// Настройка дескриптора безопасности
 GetMem( FpSecurDiscriptor, SECURITY_DESCRIPTOR_MIN_LENGTH );
 InitializeSecurityDescriptor( FpSecurDiscriptor, SECURITY_DESCRIPTOR_REVISION );
 SetSecurityDescriptorDacl( FpSecurDiscriptor, True, nil, False );
 FSecurityAttributes.nLength:= SizeOf( FSecurityAttributes );
 FSecurityAttributes.lpSecurityDescriptor:= FpSecurDiscriptor;
 FSecurityAttributes.bInheritHandle:= True;
 // Создание PIPE
 try
   FPipeHandle := CreateNamedPipe( FServerName,          // имя сервера канала
                                   PIPE_ACCESS_DUPLEX,   // Режим открытия канала
                                   PIPE_WAIT or          // Режим канала
                                   PIPE_TYPE_BYTE or
                                   PIPE_READMODE_BYTE,
                                   1,                    // Количество возможных подключений
                                   500,                  // Размер выходного буфера
                                   500,                  // Размер входного буфера
                                   1000,                 // Timeout
                                   @FSecurityAttributes  // Аттрибуты безопасности
                                   );
 except
   // здесь обрабатываю исключение
   Exit;
 end;
 // Ожидание подключения клиента
 ConnectNamedPipe( FPipeHandle, nil);
 // Когда клиент подключился, считаем канал открытым

 repeat
   try
     FPipeHandle := CreateFile( FServerName, GENERIC_READ or GENERIC_WRITE, 0, nil,
                                OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
                                );
   except
     Exit;
   end;
   Sleep( 5 );
 until FPipeHandle <> INVALID_HANDLE_VALUE;