* remove Pipes

git-svn-id: trunk@4388 -

tests/webtbs/tw7071.pp

@@ -1,7 +1,7 @@
 {$mode objfpc}{$H+}
 
 uses
-  Classes, SysUtils, Pipes;
+  Classes, SysUtils;
 
 var
   err : boolean;
@@ -18,10 +18,10 @@ begin
 end;
 
 var
-  InputStream: TInputPipeStream;
+  InputStream: TMemoryStream;
 begin
   err:=true;
-  InputStream:=TInputPipeStream.Create(0);
+  InputStream:=TMemoryStream.Create;
   Proc(InputStream);
   if err then
     halt(1);