[TAMBIK]

номера пакетов когда нажимаешь кнопку ок точить

procedure OnTimer03(Sender: TObject);
begin 
   buf:=#$5F;
   WriteD(enchantID);

     SendMsg2('    окно выбора предмета ' );
       SendMsg2(' .................' );
     end;
 #$5F:begin
       d:=1;
    enchantObjectID:=ReadD(2);