ListView en modo virtual

[byfali]

Gracias por tu respuesta Nick

Lo que intento es llenar el ListView con los bytes de un archivo y este metodo es el mas rapido cuando el archivo es muy grande.
El problema es lo que he comentado antes, me muestra los bytes de dos en dos.
Ejemplo:

BYTES (BIEN) BYTES (EN LISTVIEW)
------------- ---------------------
125 125
200 254
254 14
95 100
14
36
100

La muestra de codigo anterior era para simplificar. Adjunto parte de lo que tengo hecho.

procedure TForm16.ListView1Data(Sender: TObject; Item: TListItem);
var
byte:Integer;
begin

byte:= LeerByte;
Item.Caption:=IntToStr(byte);

end;

LeerByte es una funcion que lee los bytes del archivo.