[Vilson]

Ну ка добавь после :

PckIn := True;
SendMsg2('Karog', 'PckIn := ' + VarToStr(PckIn));