Посоветуйте кто нить

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, inifiles;

type
TForm1 = class(TForm)
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
Var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
Ini.WriteInteger('Size','Wight',form1.Width);
Ini.WriteInteger('Size','Height',form1.Height);
Ini.WriteInteger('Position','x',Form1.Left);
Ini.WriteInteger('Position','y',form1.Top);
Ini.Free;

end;



procedure TForm1.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
Form1.Width:=Ini.ReadInteger('Size','Width',100);
Form1.Height:=Ini.ReadInteger('Size','Height',100);
Form1.Left:=Ini.ReadInteger('Position','X',100);
Form1.Top:=Ini.ReadInteger('Position','Y',100);
Ini.Free;
end;

end.


В общем принцип такой приложение сохраняет в ini файл размер окна и позицю. Но при чтении ini файла при открытии его не присваивает значаения форме те которые указаны в файле. Что делать .