OleVariant类型 转化到流，用于文件的存储、读取

用流savetofile
给出VariantToStream和StreamToVariant
procedure VariantToStream (const V: OLEVariant; Stream : TStream);
var
  P : Pointer;
begin
  Stream.Position := 0;
  Stream.Size := VarArrayHighBound (V, 1) - VarArrayLowBound (V, 1) + 1;
  P := VarArrayLock (V);
  Stream.Write (P^, Stream.Size);
  VarArrayUnlock (V);
  Stream.Position := 0;
end;

procedure StreamToVariant (Stream : TStream; var V: OLEVariant);
var
  P : Pointer;
begin
  V := VarArrayCreate ([0, Stream.Size - 1], varByte);
  P := VarArrayLock (V);
  Stream.Position := 0;
  Stream.Read (P^, Stream.Size);
  VarArrayUnlock (V);
end;