Прoблeмы c coздaниeм ini фaйлa

[bulldog5293]

В formcreate накидал код, который проверяет есть ли файл и если нету оповещает пользователя и по согласию его должен его создать, но не создаёт

 myPath:=ExtractFilePath(ParamStr(0));
if FileExists(myPath+'\test.txt') then
begin
end
else
begin
Result:= MessageDlg('Файл настроик не найден, хотите создать его',
mtConfirmation,[mbYes,mbNo],0);
  If Result = mrYes then
  begin
  CanClose:=True;
   sIniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'a.ini'));
 Form1.Top:=sIniFile.ReadInteger('FORM1','Form1Top',Form1.Top); // верхнее положение окна
 Form1.Left:=sIniFile.ReadInteger('FORM1','Form1Left',Form1.Left); // левое положение окна
 Form1.Height:=sIniFile.ReadInteger('FORM1','Form1Height',Form1.Height); // высота
 Form1.Width:=sIniFile.ReadInteger('FORM1','Form1Width',Form1.Width); // ширина

 sIniFile.Free; // если сами создаем, то сами уничтожаем.
   showmessage(myPath);

в чём ошибка? showmessage срабатывает

[Slym]

Зопишы сначала...
sIniFile := TIniFile.Create(ChangeFileExt(Param Str(0),'a.ini'));
sIniFile.WriteInteger('FORM1','Form 1Top',Form1.Top);

[bulldog5293]

Спасиба, что напомнил, я забыл что ReadInteger читает, WriteInteger пишет, на автомате с попыха написал