diff --git a/components/poweredby/aboutpoweredbyunit.pas b/components/poweredby/aboutpoweredbyunit.pas
index 1b2ac52c3..5f977878a 100644
--- a/components/poweredby/aboutpoweredbyunit.pas
+++ b/components/poweredby/aboutpoweredbyunit.pas
@@ -185,7 +185,10 @@ begin
 end;
 procedure TAboutbox.SetDialogTitle(Const AValue:String);
 begin
-     fDialogTitle:=rs_About + ' ' + Avalue;
+  if AnsiContainsText(fDialogTitle, rs_About) then
+    fDialogTitle := AValue
+  else
+    fDialogTitle := rs_About + ' ' + Avalue;
 end;
 
 procedure TAboutbox.ShowDialog;