From fbe7aa44e13ce9acf39cf96ce4347ce1a0a92f47 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Thu, 27 Oct 2022 22:27:35 +0200
Subject: [PATCH] LCL/SpeedButton: Fix clipping of caption containing double
 ampersand characters, issue #39820.

---
 lcl/include/speedbutton.inc | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index ec341796da..144b7b5941 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -1124,7 +1124,6 @@ begin
   if FShowCaption and (Caption <> '') then
   begin
     TMP := Caption;
-    DeleteAmpersands(TMP);
     Flags := DT_CalcRect;
     if not Canvas.TextStyle.SingleLine then
       Inc(Flags, DT_WordBreak);