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 ;
