Read and Write INI file instances

Procedure tform1.formcreate (Sender: tobject );
VaR
INIFILE: Tinifile;
Begin
INIFILE: = Tinifile. Create (extractfilepath (paramstr (0) + 'test. ini ');
Try
If not fileexists (extractfilepath (paramstr (0) + 'test. ini ') then
Begin
INIFILE. writeinteger ('form', 'top', self. Top );
INIFILE. writeinteger ('form', 'left', self. Left );
INIFILE. writeinteger ('form', 'height', self. Height );
INIFILE. writeinteger ('form', 'width', self. width );
End
Else
Begin
Self. Top: = INIFILE. readinteger ('form', 'top', 0 );
Self. Left: = INIFILE. readinteger ('form', 'left', 0 );
Self. Height: = INIFILE. readinteger ('form', 'height', screen. Height );
Self. Width: = INIFILE. readinteger ('form', 'width', screen. width );
End;
Finally
INIFILE. Free;
End;
End;

Procedure tform1.formclose (Sender: tobject; var action: tcloseaction );
VaR
INIFILE: Tinifile;
Begin
INIFILE: = Tinifile. Create (extractfilepath (paramstr (0) + 'test. ini ');
INIFILE. writeinteger ('form', 'top', self. Top );
INIFILE. writeinteger ('form', 'left', self. Left );
INIFILE. writeinteger ('form', 'height', self. Height );
INIFILE. writeinteger ('form', 'width', self. width );
INIFILE. Free;
Action: = cafree;
End;