[ALexandr555]

Код:

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

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

[v1s2222]

Когда ты идешь с конца, то по идеи ошибок возникнуть не должно, даже если в это время ты добавишь строку.
ЗЫ код что ты написал удаляет все строчки в цикле. А не легче тогда написать X.Clear?

[ALexandr555]

я вырезал там процедуры которые делаются со строками, так что clear очистит все, а в это время может добавиться строка и очиститься не обработаная, да и ошбка думаю в том что паралельный поток уже все удалил быстрее