diff --git a/public10/design/U_WindowFormdesign.pas b/public10/design/U_WindowFormdesign.pas
index 92a6dc1..0433328 100644
--- a/public10/design/U_WindowFormdesign.pas
+++ b/public10/design/U_WindowFormdesign.pas
@@ -85,7 +85,7 @@ begin
   if trim(mStyleCode) = '' then
     mStyleCode := '01';
 
- fFontSize := getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
+ fFontSize:= getSystemFontSize(ADOTmp,PWideChar(mStyleCode));
   if fFontSize <= 9 then
     fFontSize := 9;
 
@@ -100,6 +100,8 @@ begin
     begin
       if mForm.Components[i] is Tlabel then
       begin
+        if mForm.Components[i].Tag<>10 then
+          Tlabel(mForm.Components[i]).Font.Size:=  fFontSize ;
         if Tlabel(mForm.Components[i]).Left >= fFontSize then
           Tlabel(mForm.Components[i]).Left := Tlabel(mForm.Components[i]).Left - fFontSize;
         continue;