diff --git a/main.pas b/main.pas
index dddc9170..56c3f31b 100644
--- a/main.pas
+++ b/main.pas
@@ -1675,6 +1675,13 @@ procedure TMainForm.FormCreate(Sender: TObject);
   finally
     SL.Free;
   end;
+  // StatusBar Panels width
+  for i := 0 to StatusBar.Panels.Count-1 do
+  begin
+        j := Ini.ReadInteger('StatusBarPanels',IntToStr(i),0);
+        if j <> 0 then StatusBar.Panels[i].Width:=j else
+                  Ini.WriteInteger('StatusBarPanels',IntToStr(i),Statusbar.Panels[i].Width);
+  end;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);