SYG>RESOURCESTRING
SYG>   STORE_FILE_NAME_IS_EMPTY = 'Не задано имя инициализационного файла (StoreFileName = "")';

SYG>//------------------------------------------------------------------------------

SYG>CONST
SYG>  IDENT_Form    = 'Form';
SYG>  IDENT_Left    = 'Left';
SYG>  IDENT_Top     = 'Top';
SYG>  IDENT_Width   = 'Width';
SYG>  IDENT_Height  = 'Height';

SYG>//------------------------------------------------------------------------------

SYG>PROCEDURE TMainForm.Save;
SYG>VAR f: IniFiles.TIniFile;
SYG>BEGIN
SYG>  f := NIL;
SYG>  TRY
SYG>    IF Self.FStoreFileName = '' THEN RAISE SysUtils.Exception.Create(STORE_FILE_NAME_IS_EMPTY);
SYG>    IF SysUtils.FileExists(Self.FStoreFileName) THEN Windows.DeleteFile(PAnsiChar(Self.FStoreFileName));
SYG>    TRY
SYG>      f := IniFiles.TIniFile.Create(Self.FStoreFileName);
SYG>      f.WriteInteger(IDENT_Form, IDENT_Left,   Self.Left);
SYG>      f.WriteInteger(IDENT_Form, IDENT_Top,    Self.Top);
SYG>      f.WriteInteger(IDENT_Form, IDENT_Width,  Self.Width);
SYG>      f.WriteInteger(IDENT_Form, IDENT_Height, Self.Height);
SYG>    FINALLY
SYG>      f.Free;
SYG>    END;
SYG>  EXCEPT ON e: SysUtils.Exception DO Error(e, 'TMainForm.Save') END
SYG>END;

SYG>//------------------------------------------------------------------------------

SYG>PROCEDURE TMainForm.Load;
SYG>VAR f: IniFiles.TIniFile;
SYG>BEGIN
SYG>  f := NIL;
SYG>  TRY
SYG>    IF NOT SysUtils.FileExists(Self.FStoreFileName) THEN EXIT;
SYG>    TRY
SYG>      f := IniFiles.TIniFile.Create(Self.FStoreFileName);
SYG>      Self.Left   := f.ReadInteger(IDENT_Form, IDENT_Left,   Self.Left);
SYG>      Self.Top    := f.ReadInteger(IDENT_Form, IDENT_Top,    Self.Top);
SYG>      Self.Width  := f.ReadInteger(IDENT_Form, IDENT_Width,  Self.Width);
SYG>      Self.Height := f.ReadInteger(IDENT_Form, IDENT_Height, Self.Height);
SYG>    FINALLY
SYG>      f.Free;
SYG>    END;
SYG>  EXCEPT ON e: SysUtils.Exception DO Error(e, 'TMainForm.Load') END
SYG>END;
SYG>