tsdima, Это Там ещё есть куча функций для индексации вложений,и создании полноценной базы.Правда примеры плохие(простейшая база).
Посмотрев код обнаружил :

---

procedure TForm1.BnextClick(Sender: TObject);
//Переходим на следующую запись

begin
if V.Items[1].AsTLinks.High>Index then begin
inc(index);
read_data(index); <-Это же ХиАсм
//Увеличиваем индекс текущей записи и считываем нужные данные
end;
apply_buttons;
// Обновляем кнопки
end;

---

А почему у меня такие маленькие получились
На сервер я закачивал в нормальном размере.