From 53b49c708665ee45d248cb5a0336d903b0c5fc69 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Mon, 3 Oct 2011 15:24:51 +0000
Subject: [PATCH] Patch from bug #20252

git-svn-id: trunk@32657 -
---
 lcl/include/bitbtn.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/bitbtn.inc b/lcl/include/bitbtn.inc
index 025aea2762..3d049d43c0 100644
--- a/lcl/include/bitbtn.inc
+++ b/lcl/include/bitbtn.inc
@@ -267,7 +267,10 @@ procedure TCustomBitBtn.Loaded;
 begin
   inherited Loaded;
   if (Kind <> bkCustom) and DefaultCaption and (Caption = '') then
-    Caption := GetCaptionOfKind(Kind);
+  begin
+    Caption := GetCaptionOfKind(Kind); // Will trigger TextChanged
+    DefaultCaption := True;
+  end;
 end;
 
 procedure TCustomBitBtn.TextChanged;