Именованный пайп и CreateFile

{$APPTYPE CONSOLE}
uses Windows;
var hPipe:THandle;
    si:STARTUPINFO;
    pi:PROCESS_INFORMATION;
begin
hPipe:=CreateNamedPipe('\\.\pipe\SomeName',PIPE_ACCESS_DUPLEX,PIPE_WAIT,1,$100,$100,0,nil);
FillChar(si,SizeOf(si),0); si.cb:=SizeOf(si);
CreateProcess(nil,'Client.exe 1',nil,nil,false,0,nil,nil,si,pi);
CloseHandle(pi.hThread);
Sleep(2000); //This Sleep does nothing bad
ConnectNamedPipe(hPipe,nil);
WaitForSingleObjectEx(pi.hProcess,INFINITE,false);
DisconnectNamedPipe(hPipe);
CloseHandle(pi.hProcess);
CreateProcess(nil,'Client.exe 2',nil,nil,false,0,nil,nil,si,pi);
CloseHandle(pi.hThread);
Sleep(2000); //But not this one
ConnectNamedPipe(hPipe,nil);
WaitForSingleObjectEx(pi.hProcess,INFINITE,false);
DisconnectNamedPipe(hPipe);
CloseHandle(pi.hProcess);
CloseHandle(hPipe);
end.

{$APPTYPE CONSOLE}
uses Windows;
var hPipe:THandle;
    Buf:array [0..99] of Char;
begin
hPipe:=CreateFile('\\.\pipe\SomeName',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,GetLastError(),0,@Buf,100,nil);
MessageBox(0,@Buf,nil,MB_ICONEXCLAMATION);
if hPipe=INVALID_HANDLE_VALUE then Write(':-(( ',ParamStr(1));
CloseHandle(hPipe);
end.