+procedure TMainForm.FormShow(Sender: TObject);\r
+var\r
+ MyIniFile: TIniFile;\r
+ x:string;\r
+begin\r
+ MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\gnokiirc');\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'x', '100');\r
+ MainForm.Left:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'y', '100');\r
+ MainForm.Top:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'treewidth', '93');\r
+ MainForm.TreeView1.Width:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'width', '655');\r
+ MainForm.Width:=strtoint(x);\r
+\r
+ x:=MyInifile.ReadString('win32gui', 'height', '431');\r
+ MainForm.Height:=strtoint(x);\r
+\r
+ MyIniFile.Free;\r
+\r
+end;\r
+\r
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);\r
+begin\r
+ SaveMainConfig;\r
+end;\r
+\r