At the end of the procedure DrawConcaveRectangle is "path.free" missing.
procedure DrawConcaveRectangle(graphic: TGPGraphics; R: TRect; Direction: TButtonDirection; Clr: TColor);
...
begin
path := TGPGraphicsPath.Create;
...
path.Free; //is missing
end;
Thanks for reporting.
We fixed this. Next update will have this fix.