请教关于delphi命名管道的问题

下面是网上找的一个事例,但在本机报错.

请教下错误原因,或者给另外的事例更好!谢谢
//Server
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TServer = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Server: TServer;
const
 pipename:string='\\.\pipe\Server';
implementation

{$R *.dfm}

procedure TServer.Button1Click(Sender: TObject);

  var
  SPipeHandle:THandle;  
  Se:TSecurityAttributes;
  WriteBuffer:DWORD;  
  Buffer:pchar;
  begin
  Se.nLength:=Sizeof(TSecurityAttributes);
  Se.lpSecurityDescriptor:=nil;
  Se.bInheritHandle:=True;
  SPipeHandle:=CreateNamedPipe(pchar(pipename),PIPE_ACCESS_OUTBOUND OR FILE_FLAG_WRITE_THROUGH, PIPE_TYPE_BYTE or PIPE_WAIT,2,512,0,1000,@Se);

//此处建立并放回句柄
  if SPipeHandle=-1 then
  raise Exception.Create('Create pipe Failed');
  try
  if not Connec