指针的问题

Question

我的代码如下：
var
  OptionValue: variant;
  VarResult: Pointer ;
begin
  PVariant(VarResult)^:= OptionValue; //这样写提示无效的变量类型
  PVariant(Pointer(VarResult)^)^:= OptionValue;  //这样写则发生内存地址错误
end;怎么解决上面的问题？

Answer 1

varresult := @optionvalue; // 这个没有提示，但不知道对不对

Answer 2

應該先給指針分配內存, 然後, 操作指針, 一般用 MoveMemory