Here is an example of TBGRAPath:
uses BGRABitmap, BGRAPath;
{ TForm1 }
procedure TForm1.FormPaint(Sender: TObject);
var
bmp: TBGRABitmap;
path: TBGRAPath;
begin
bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,clBtnFace);
path := TBGRAPath.Create;
path.moveTo(20,20);
path.arcTo(100,20, 100,70, 50);
path.lineTo(100,150);
path.lineTo(20,150);
path.closePath;
path.stroke(bmp, clBlack, 5);
path.Free;
bmp.Draw(Canvas,0,0);
bmp