procedure TForm1.Button1Click(Sender: TObject);
var
 InString, OutString: AnsiString;
 PipeClient: TFWPipeClient;
 InStream, OutStream: TMemoryStream;
begin
 InString := Edit1.Text;
 OutString := '';
 try
   PipeClient := TFWPipeClient.Create('.', 'FWIOCompletionPipeServer');
   try
     PipeClient.Active := True;
     InStream := TMemoryStream.Create;
     try
       OutStream := TMemoryStream.Create;
       try
         InStream.Clear;
         InStream.SetSize(Length(InString));
         Memo1.Lines.Add('OutStr = ' + InString);
         Data := Length(InString);
         Memo1.Lines.Add('OutStrLen = ' + IntToStr(Data));
         InStream.WriteBuffer(Pointer(InString)^, Length(InString));
         PipeClient.SendData(InStream, OutStream);
         SetLength(OutString, OutStream.Size);
         OutStream.ReadBuffer(Pointer(OutString)^, OutStream.Size);
         Memo1.Lines.Add('InStrLen = ' + IntToStr(OutStream.Size));
         Memo1.Lines.Add('InStr = ' + OutString);
       finally
         OutStream.Free;
       end;
     finally
       InStream.Free;
     end;
   finally
     PipeClient.Free;
   end;
 except
   on E:Exception do
     Memo1.Lines.Add(E.Classname + ': ' + E.Message);
 end;
end;

procedure TMyThread.Execute;
var
 PipeServer: TPipeServer;
begin
 try
   PipeServer := TPipeServer.Create;
   try
     PipeServer.Server.Active := True;
   finally
     PipeServer.Free;
   end;
 except
 end;
end;