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

да все все не использую этот свой "кал") по другому делаю)