[[maeyanes]]

Hola...

Prueba haciendo:

Código Delphi [-]
var
  TempI,TempII,foundby:integer;
  tempb:bool;
  filtrados:integer;
  TempSna,TempSdn,TempSip,TempSmo:string;
  TiT : TListItem;
begin
  //Mostramos la DB
  AllStatus(False);
  filtrados := 0;
  comparacionaeservista.Items.BeginUpdate; // Le pedimos al ListView que no refresque 
  // los items...
  try
    comparacionaeservista.Clear;
    // Todo tu código
  finally
    comparacionaeservista.Items.EndUpdate // Le pedimos al ListView que refresque todos
    // los items...
  end
end;

Saludos...