Okay, but when I use them, I get an AV. :-/ Dunno what's wrong... :? This is the code that uses Lock procedure:
[pascal]
function TBRender.BeginRender(typ : TBShapeType; size : word; ile : word; BlendMode : TBBlendMode) : pointer;
var pvertex : pointer;
s : dword;
begin
if fsize+size>=PBUFSIZE then
Render;

if (typ = BTRIANGLESTRIP) or (typ=BTRIANGLEFAN) or (typ=BLINESTRIP) then
render
else if typ<>fType then
render;
if BlendMode<>fBlendMode then
begin
render;
fBlendMode := BlendMode;
end;
ftype := typ;
s:= fsize*sizeof(TBVertex2D);
pvertex := fbuffor.Lock(s,s+sizeof(TBVertex2D)*size) ;
inc(files, ile);
inc(fsize, size);
result := pvertex;
end;
[/pascal]

But it isn't executed, I get AV. Anyone knows why? What could be wrong?