procedure TForm1.Button2Click(Sender:TObject);var MyIniFile : TIniFile;begin MyIniFile := TIniFile.Create('Test.ini',True); try MyIniFile.WriteString('Section', 'Key', 'Value'); finally MyIniFile.Free; end;end;
procedure TForm1.Button3Click(Sender: TObject);var MyIniFile : TIniFile;begin MyIniFile := TIniFile.Create('Test.ini',True); try MyIniFile.WriteString('Section', 'Key', 'Value'); ShowMessage(MyIniFile.ReadString('Section', 'Key', 'NoneFound')); finally MyIniFile.Free; end;end;