[Guest]

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 ;

[skaa]

Спасибо!