procedure TForm1.Button1Click(Sender: TObject);
var blocks:TStringList;
    ini:TIniFile;
    i:integer;
    s:string;
begin
 blocks:=TStringList.Create;
 ini:=TIniFile.Create('.\file.txt'); //связываем переменную с файлом
 ini.ReadSections(blocks); //считываем в стринглист все "блоки"
 blocks.Sort; // обязательно для поиска по стринглисту
 if blocks.Find('3',i) then //ищем "блок" [3] - без скобок
 begin
  s:=ini.ReadString('3','0','Значение 0 не найдено');
  ListBox1.Items.Add(s); //запивывает значение если найдено, если нет верхнюю фразу
 end
 else ListBox1.Items.Add('Block 3 not found'); //ну и это если сам блок не найден
end;