var
TempI,TempII,foundby:integer;
tempb:bool;
filtrados:integer;
TempSna,TempSdn,TempSip,TempSmo:string;
TiT : TListItem;
begin
AllStatus(False);
filtrados := 0;
comparacionaeservista.Items.BeginUpdate; try
comparacionaeservista.Clear;
finally
comparacionaeservista.Items.EndUpdate end
end;