fix bug

GetMem(PtrChar, RequiredSize * 2)