[ALexandr555]

Помогите рализовать алгоритм, проверяем есть ли номер в LB1(ListBox1) если нашли то выполняем "действие1" дальше не ищем, если нет, проверяем число итемов в LB1 если больше нужного числа, то выполняем "действие2", иначе мы ищем есть ли номер в LВ2, LB3, LB4, LB5 и как найдем удаляем, и затем добавляем в LB1, И выполняем "действие1".

[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;

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