// Проверено на XE6 и XE7
procedure TForm1.ListView1Painting(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  if ListView1.GetItemRect(ListView1.ItemCount-1).Bottom = ListView1.Height then
    Label1.Text := 'YES! Через одно место, но работает!'
  else
    Label1.Text := 'Это еще не конец...';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Включаем событие
  ListView1.PullToRefresh := True;
end;

procedure TForm1.ListView1PullRefresh(Sender: TObject);
begin
  // Обновляем список
end;