[ALexandr555]

Код:

var
CR1: boolean;
begin
if CR1 then begin
parelelPK:= TstringList.Create;
parelelPK.Assign(PK10);
pk10.clear;
conec1:=parelelPK.Count;
shet1:=0;
CR1:=false;
end;

тупой вопрос но все же, выполнится ведь это в тамере 1 раз?)