[ALexandr555]

Код:

 begin
  for mem1:=potokkomand1.Count-1 DownTo 0 do begin
   potokkomand1.Delete(mem1);
  end;
 end

возможна ли сдесь ошибка если в это время еще может добавиться строка в potokkomand1, вроде как была у меня не получилось обратиться к 0 строке хотя по идее этого не могло быть, как исправить