а этот код:
Код:
var
CR1: boolean;
begin
if CR1 then begin
parelelPK:= TstringList.Create;
parelelPK.Assign(PK10);
pk10.clear;
conec1:=parelelPK.Count;
shet1:=0;
CR1:=false;
end;
это обработчик события OnTimer или что-то еще? как-то странно проверять значение переменной CR1 не инициализировав ее и ждать выполнения условия один или несколько раз. тут ведь как повезет после объявления локальной переменной: если текущее значение ячейки памяти будет не ноль, при каждом срабатывании таймера, то условие будет выполняться много раз, если ноль, то ни разу
