怎么将OleVariant转为string

如何将OleVariant转为string
如题
谢谢大家

[解决办法]
var
oleStr:OleVariant;
Str:String;
begin
oleStr := 'aaaa ';
Str := String(oleStr);
ShowMessage(Str);
end;

[解决办法]
vartostr
[解决办法]
VarToStrDef 比较好
[解决办法]
VarToStrDef