#include <IniFiles.hpp>
------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
TIniFile *ini;
ini = new TIniFile(ChangeFileExt( Application->ExeName, ".txt" ) );
Label1->Caption = ini->ReadString( "List", Edit1->Text, "Error" );