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