BCB Read and write INI

A very simple question. I've been looking for a long time to find a tinifile component. The original contains a header file can be used ... It might be too easy. The internet has been looking for a long time to know. The following is an example of help.

#include <inifiles.hpp>__fastcall Tform1::tform1 (tcomponent *owner): Tform (Owner)

{
Tinifile *ini;
INI = new Tinifile (Application->exename, Changefileext). INI "));
top = Ini->readinteger ("Form", "top", 100);
left = Ini->readinteger ("Form", "left", 100);
Caption = ini->readstring ("Form", "Caption",
"Default Caption");
Ini->readbool ("Form", "Initmax", false)?
WindowState = wsmaximized:
WindowState = Wsnormal;
Delete ini;
}
void __fastcall Tform1::formclose (tobject *sender, tcloseaction &action)

{
Tinifile *ini;
INI = new Tinifile (Application->exename, Changefileext). INI "));
Ini->writeinteger ("Form", "Top", top);
Ini->writeinteger ("Form", "left", left);
Ini->writestring ("Form", "Caption", Caption);
Ini->writebool ("Form", "Initmax",
WindowState = = wsmaximized);
Delete ini;
}

INI file content is
[Form]

top=185
left=280
Caption=default Caption
Initmax=0