В дельфях можно указать явную длину строки при помощи Setlength(str), и тогда туда можно пихать весь набор символов ASCII, включая и chr(0)

#pas
msg := chr($64)   + EncodeBase64(IP_adr) + chr($0);
msg := msg + '222';
SetLength(msg, 21);