From ca9cb1a6e4d4ba47e77ff57f0cd77b0ccb27e14a Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Thu, 20 Jul 2023 12:20:40 +0300
Subject: [PATCH] Clean up procedure TScreen.EndTempCursor. Issue #40389.

---
 lcl/include/screen.inc | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/lcl/include/screen.inc b/lcl/include/screen.inc
index 346dcf03d8..13063964fc 100644
--- a/lcl/include/screen.inc
+++ b/lcl/include/screen.inc
@@ -438,14 +438,6 @@ begin
 end;
 
 procedure TScreen.EndTempCursor(const aCursor: TCursor);
-  procedure _Delete(const _Index: Integer); // FPC 3.0.x doesn't support Delete() for arrays #36728
-  var
-    I: Integer;
-  begin
-    for I := _Index to High(FTempCursors)-1 do
-      FTempCursors[I] := FTempCursors[I+1];
-    SetLength(FTempCursors, Length(FTempCursors)-1);
-  end;
 var
   I: Integer;
   OldCursor: TCursor;
@@ -455,7 +447,7 @@ begin
   begin
     if FTempCursors[I]=aCursor then
     begin
-      _Delete(I);
+      Delete(FTempCursors,I,1);
       if OldCursor<>RealCursor then
         WidgetSet.SetCursor(Cursors[RealCursor]);
       Exit;