From b00ff8a4e02b246fe6a42927bc3316c6451194cd Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 20 Feb 2013 21:36:02 +0000
Subject: [PATCH] * patch by Bart Broersma, simplify TStringList.InsertItem,
 resolves #23860

git-svn-id: trunk@23638 -
---
 rtl/objpas/classes/stringl.inc | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index ff73f1c5a2..956e3ab360 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1017,16 +1017,7 @@ end;
 
 Procedure TStringList.InsertItem(Index: Integer; const S: string);
 begin
-  Changing;
-  If FCount=Fcapacity then Grow;
-  If Index<FCount then
-    System.Move (FList^[Index],FList^[Index+1],
-                 (FCount-Index)*SizeOf(TStringItem));
-  Pointer(Flist^[Index].Fstring):=Nil;  // Needed to initialize...
-  Flist^[Index].FString:=S;
-  Flist^[Index].Fobject:=Nil;
-  Inc(FCount);
-  Changed;
+  InsertItem(Index, S, nil);
 end;