[[escafandra]]

Intenta evitar el repintado durante el bucle:

Código Delphi [-]
// Evito que se repinte a cada actualización de línea...
  SendMessage(ListView1.Handle, WM_SETREDRAW, FALSE, 0);

... Mi bucle de llenado...

// Permito que se repinte y obligo a que se actualize
  SendMessage(ListView1.Handle, WM_SETREDRAW, TRUE, 0);
  InvalidateRect(ListView1.Handle, nil, TRUE);

Saludos.