Base64图片文件保存出错，TBytes转char*内存错误

[学不完啊学不完]

哪位大神帮帮手，Base64图片文件解码后还原保存成功，
但程序运行完出错，以下是代码内容：
//EncodeMemo->Text里面是标准的图片Base64字符串数据；

UnicodeString EncodeText = EncodeMemo->Text;
TBytes FileBytes = TNetEncoding::Base64->DecodeStringToBytes(EncodeText);

//问题代码--------------------------------------------
const int BufLen = FileBytes.Length;
char* FileBuffer = new char[BufLen];
memmove(&FileBuffer, &FileBytes, BufLen);
//-----------------------------------------------------

UnicodeString FileName = FormatDateTime("mmddhhmmss",Now().operator double());
FileName = "D:\\" + FileName + ".jpg";
int iCreate = FileCreate(FileName);
FileClose(iCreate);
int iWrite = FileOpen(FileName, fmOpenWrite | fmShareExclusive);
FileWrite(iWrite, FileBuffer, BufLen);
FileClose(iWrite);
delete FileBuffer;

运行完成报错：

[学不完啊学不完]

//改成流方式保存文件即可 TMemoryStream* FileStream = new TMemoryStream(); FileStream->Write(FileBytes, FileBytes.get_length()); FileStream->SaveToFile(FileObjecte); delete FileStream;