void __fastcall TForm1::FormCreate(TObject *Sender)
{
hp=CreateNamedPipe("\\\\.\\pipe\\test",PIPE_ACCESS_OUTBOUND, PIPE_TYPE_BYTE | PIPE_NOWAIT,1,0,0,NMPWAIT_USE_DEFAULT_WAIT,NULL);
if (hp==INVALID_HANDLE_VALUE)
{
ShowMessage("Ошибка создания именованного канала!!!");

}

}
//--------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String sendstr=Memo->Lines->Text;
DWORD size=sizeof(sendstr);
bool flag=WriteFile(
hp, // handle to file to write to
&sendstr, // pointer to data to write to file
size, // number of bytes to write
&size, // pointer to number of bytes written
NULL // pointer to structure needed for overlapped I/O
);
if(!flag)
{
ShowMessage("Ошибка передачи");
}

}

WriteFile возвращает false
C ув. Tors