From 83af0c8a1ba972695f6b666f4f23e766d038a478 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 5 Aug 2011 22:17:30 +0000
Subject: [PATCH]  * TProcess.setparameter assigned a TStrings instead of
 .assign()ing it.     Patch from Cyrax, Mantis #19906

git-svn-id: trunk@18105 -
---
 packages/fcl-process/src/process.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/packages/fcl-process/src/process.pp b/packages/fcl-process/src/process.pp
index f3d3617bda..73b50f4413 100644
--- a/packages/fcl-process/src/process.pp
+++ b/packages/fcl-process/src/process.pp
@@ -395,8 +395,7 @@ end;
 
 procedure TProcess.SetParameters(const AValue: TStrings);
 begin
-  if FParameters=AValue then exit;
-  FParameters:=AValue;
+  FParameters.Assign(AValue);
 end;
 
 Procedure TProcess.SetWindowRect (Value : Trect);