¡Qué registro más lento!

[lpmlpm]

Puede ser que quien se esté comportando lento sea tu control TListView, prueba agregando estas lineas de código en tu procedimiento:

Código Delphi [-]

Procedure TFFondo.LlenarLista;
...
begin
  Lista.Items.BeginUpdate;
 ...  //tu código
  Lista.Items.EndUpdate;
end;