[Lotles]

У меня в реестр сохраняет, но не загружает позицию ToolBar
Подскажите где ошибка


Вот код, чтобы сохранялась позиция ToolBar

Код:

Код:

procedure TForm1.FormShow(Sender: TObject);
var
r:TRect;
ReginiFile:TReginiFile;
begin
ToolBar1.ManualDock(nil,nil,alNone);
ToolBar1.ManualFloat(Bounds(100,500,ToolBar1.UndockWidth,ToolBar1.UndockHeight));
ReginiFile:=TReginiFile.Create('Software');
ReginiFile.OpenKey('Sergey\Lotles',true);
ToolBar1.Left:=ReginiFile.ReadInteger('Lotles','Левая координата ToolBar',R.Left);
ToolBar1.Top:=ReginiFile.ReadInteger('Lotles','Левая координата ToolBar',R.Top);
ReginiFile.Free;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
r:TRect;
ReginiFile:TReginiFile;
begin
if ToolBar1.HostDockSite<>ControlBar1 then
begin
GetWindowRect(ToolBar1.Handle,R);
ReginiFile:=TReginiFile.Create('Software');
ReginiFile.OpenKey('Sergey\Lotles',true);
ReginiFile.WriteInteger('Lotles','Левая координата ToolBar',R.Left);
ReginiFile.WriteInteger('Lotles','Верхняя координата ToolBar',R.Top);
ReginiFile.Free;
end;