diff --git a/mdl/m_quicksort.pas b/mdl/m_quicksort.pas
index 635f746..f280fa5 100644
--- a/mdl/m_quicksort.pas
+++ b/mdl/m_quicksort.pas
@@ -81,9 +81,11 @@ Begin
     Self.Add(Name, Ptr)
   Else
     For Count := Total DownTo 1 Do
-      If Data[Count].Name < Name Then Begin
-        Data[Count].Name := Name;
-        Data[Count].Ptr  := Ptr;
+      If Data[Count]^.Name < Name Then Begin
+        Data[Count]^.Name := Name;
+        Data[Count]^.Ptr  := Ptr;
+
+        Break;
       End;
 End;