intqcsf;
 char*pRes;
 HGLOBALhMem;

 qcsf=4000000;
 hMem=GlobalAlloc(GPTR,qcsf+1);
 if(hMem!=NULL)
 {
   pRes=(char*)GlobalLock(hMem);
   if(pRes!=NULL)
     pRes[qcsf]='!';
   else
     ShowMessage("GlobalLock?");
   GlobalUnlock(hMem);
   GlobalFree(hMem);
 }
 else
   ShowMessage("GlobalAlloc?");

var
 qcfs: integer ; // int qcsf;
 pRes: PChar ; //*char*pRes;
*hMem: <HANDLE-не-знаю-как-он-там> ; // HGLOBALhMem;
begin
*qcsf := 4000000 ;  
*hMem := GlobalAlloc(GPTR,qcsf+1) ;
*if (hMem<>NULL)
*then begin
* *pRes = GlobalLock(hMem);
* *if(pRes<>0)
* * *pRes[qcsf] = '!' ; // забыл, как там символ сделать.... '!' - символ !
* *else
* * *ShowMessage("GlobalLock?");
* *GlobalUnlock(hMem);
* *GlobalFree(hMem);
*end
*else ShowMessage("GlobalAlloc?");
end ;

Спасибо!