[ALexandr555]

Код:

var
mem: integer;
inache: boolean;
begin
Inache:=True;
for mem:=0 to listbox1.Count do begin
 if listbox1.Items[mem] = "номер"  then
   begin
   "действие1"
    Inache:=False; 
    Break;
   end;
If Inache = True then begin
 If listbox1.Count > 198 tnen 
   begin
   "действие2"
  end
 else
  begin
   for mem:=0 to listbox1.Count do begin
    if listbox2.Items[mem] = "номер"  then
      begin
         listbox2.Items.Delete(mem);
         Break;
     end;
   for mem:=0 to listbox1.Count do begin
    if listbox3.Items[mem] = "номер"  then
      begin
         listbox3.Items.Delete(mem);
         Break;
     end;
      for mem:=0 to listbox1.Count do begin
    if listbox4.Items[mem] = "номер"  then
      begin
         listbox4.Items.Delete(mem);
         Break;
     end;
      for mem:=0 to listbox1.Count do begin
    if listbox5.Items[mem] = "номер"  then
      begin
         listbox5.Items.Delete(mem);
         Break;
     end;
    listbox1.Items.add("номер");
end;

вот вобщем набросал гляньте сойдет или нет.