delphi record OleVariant 如何才能互相转换

delphi record OleVariant 怎么才能互相转换
  TSelectInfo = record
    Fields: string;
    Selects: string;
    wheres: string;
  end;

 因为需要在 datasnap 进行通读
Delphi String
[解决办法]
http://bbs.csdn.net/topics/10035871