>testBYTE := test[0]; // ← これが駄目
StrPCopy(@testBYTE, test[0]);
でどう?