Хех. Не заметил двоеточие...
А по теме вот:
Code
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: Tinifile;
Param: string;
begin
Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'1.ini');
//Ini.WriteString('Section_Name', 'KEY1', 'OK!!!');
Param:=Ini.ReadString('Section_Name', 'KEY1', '');
Ini.Free;
if Edit1.text=Param then
MessageBox(0, (PChar(Param)), nil, 0);
end;
И 1.ini с таким содержанием:
Code
[Section_Name]
KEY1=OK!!!
И всё прекрасно работает.