diff --git a/fcl/tests/testproc.pp b/fcl/tests/testproc.pp
index 52b1c8c6d4..3f2174a849 100644
--- a/fcl/tests/testproc.pp
+++ b/fcl/tests/testproc.pp
@@ -16,7 +16,10 @@ Var S : TProcess;
     I,Count : longint;
     
 begin
-  S:=TProcess.Create(theprogram,[poExecuteOnCreate,poUsePipes,poNoConsole]);
+  S:=TProcess.Create(Nil);
+  S.Commandline:=theprogram;
+  S.Options:=[poUsePipes,poNoConsole];
+  S.execute;
   Repeat
     Count:=s.output.read(buf,BufSize);
     // reverse print for fun.
@@ -26,7 +29,10 @@ begin
   writeln;
   S.Free;  
 end.  $Log$
-end.  Revision 1.2  2000-07-13 11:33:04  michael
+end.  Revision 1.3  2002-05-18 13:38:30  michael
+end.  + Fixed test program to new interface
+end.
+end.  Revision 1.2  2000/07/13 11:33:04  michael
 end.  + removed logs
 end. 
 }