I call a c + + written in Delphi programs of com component calls a function should be to pass an array of the tips below q
Tip the variant or safe array is locked


Seting:=CoRfSetting. Create;
SSS:=trim (Edit1. Text);

SetLength (QWMM, 28);
Ss:=';
For I:=0 to 27 do
The begin
S:=MidStr (SSS, I * 2 + 1, 2);
//ss:=ss + s;
QWMM: [I]=byte (Strtoint (' $' + s));
//ss:=ss + inttohex (QWM [I], 2);
end;
//move (p ^ QWMM, 28).

Seting. Read (QWMM);//call this will prompt the variant or safe array is locked but can obtain the following the value of the attribute