bs1:=ADR(SMSq1.bSend);
bs1^:=q1;

Вы сделали все наоборот