lasarus_compotents/bgracontrols/test/test_bgrapascalscript/include.txt

function bgra_CreateNextWithSize(x,y: Integer): Integer;
begin
  result := bgra_GetHighestID + 1;
  bgra_CreateWithSize(result,x,y);
end;