类型转换不过来请大家帮看下

procedure TForm7.Button1Click(Sender: TObject);
var
a: string;
q,w,e,r: string;
begin
  q := str.TypeId;            //自己定义的记录类型  都为STRING类型
  w := str.FullName;          @TypeId varchar  @FullName varchar(66),@UserCode varchar(26),@Comment                      varchar(50),@NamePy varchar....                                                                       
   e := str.UserCode;  If DM.ADOQuery1.RecordCount<1 then
  begin
    with DM do
    begin
      ADOStoredProc1.Close;
      ADOStoredProc1.ProcedureName := 'BasicUpdateP';
      ADOStoredProc1.Parameters.Refresh;
      ADOStoredProc1.Parameters.ParamByName('@typeId') :=  q;
      ADOStoredProc1.Parameters.ParamByName('FullName') := w;
      ADOStoredProc1.Parameters.ParamByName('@UserCode') := e;
      ADOStoredProc1.Parameters.ParamByName('@Name') := '';
      ADOStoredProc1.Parameters.ParamByName('@NamePy') := '';
      ADOStoredProc1.Parameters.ParamByName('@Type') := '';
      ADOStoredProc1.ExecProc;
    end;
提示 left side cannot be assigned to