More optimization of image cache

diff --git a/bottleclient/SppList.pas b/bottleclient/SppList.pas
index 3407951..701ffb2 100644 (file)
--- a/bottleclient/SppList.pas
+++ b/bottleclient/SppList.pas
@@ -122,7 +122,7 @@ begin
     end;
   end else
   begin
-    FImagePool.AddObject(Ghost + ',' + IntToStr(Surface), nil);
+    FImagePool.InsertObject(0, Ghost + ',' + IntToStr(Surface), nil);
   end;
   if FImagePool.Count > MaxPoolImage then
   begin