🚀 go-pugleaf

hi!

I am trying to copy a list of files into the clipboard. In the following 
is my code but it doesn't work (acess error with memory or something 
that the CodeGuard tells me).. any clue or maybe some more simple code 
to do what I want?

	AnsiString ShellConcatFiles(TStrings* sourceFiles) {
		AnsiString tmpStr = "";
		for(int i=0; i<sourceFiles->Count; i++) {
			tmpStr += sourceFiles->Strings[i];
			tmpStr += '\0';
		}
		return tmpStr;
	}

bool CopyFilesToClipboard(TStrings* sourceFiles)
{

	AnsiString tmpList = ShellConcatFiles(sourceFiles);
	char* FileList = new char[tmpList.Length() + 1];
	try {
		strcpy(FileList, tmpList.c_str());

		int len;
		BYTE* pData;
		HGLOBAL hGbl;
		DROPFILES hf;

		if (!OpenClipboard(0))
			return false;
		EmptyClipboard();

		hf.fNC = false;
		hf.fWide = false;
		hf.pFiles = sizeof(hf);
		hf.pt.x = hf.pt.y = 0;

		len = tmpList.Length() + 2;
		hGbl = GlobalAlloc(GHND, sizeof(hf)+len);
		pData = (BYTE*)GlobalLock(hGbl);
		if (pData != NULL) {
			memcpy(pData, &hf, sizeof(hf));
			memcpy(pData+sizeof(hf), FileList, len);
			GlobalUnlock(hGbl);
			if (!SetClipboardData(CF_HDROP,hGbl)) {
				GlobalFree(hGbl);
				hGbl = NULL;
			}
		} else if(hGbl != NULL) {
			GlobalFree(hGbl);
			hGbl = NULL;
		}
		CloseClipboard();
		return hGbl != NULL;
	} __finally {
		delete FileList;
	}
}