ansiStrAlloc

xm := ansiStrAlloc(1024);

fillChar(xm^,length(xm),0);

ZeroMemory(xm,1024);