Smile 笑容

邱家楗(QQ:165498014)提供答案：

var
  R: TRect;
  V: OleVariant;
begin
  R.Left := 1;
  R.Top := 2;
  R.Right := 3;

V := ^R;

环境： Win32， Borland Delphi