[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 v: Variant;
begin
 s := 'MaMu';
 v := Variant(s);
 ShowMessage(v);
end;