{$codepage UTf8} VAR cad:PChar; BEGIN getmem(cad,10); cad:='hola'; freemem(cad) END.