Código Delphi [-] var S: String; V: Variant; begin S := 'Hola pepe'; V := S; end;
var S: String; V: Variant; begin S := 'Hola pepe'; V := S; end;