procedure TForm1.Button1Click(Sender: TObject);
var test:Tinifile;
    tmplst:TStringList;
begin
  test:=Tinifile.Create('c:\test.ini');
  tmplst:=TStringList.Create ;
  test.ReadSectionValues('yoursection',tmplst);
  test.Free ;
  tmplst.Free ;
end;