procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
custBmp:TBGRACustomBitmap;
polyPoiF: ArrayOfTPointF;
sFn: string;
begin
sFn := ExtractFilePath(ParamStr(0)) + 'aa.bmp';
if fileExists(sFn) = false then
begin
memo1.Append('The file is not exist:' + sFn);
exit;
end;
custBmp := TBGRABitmap.Create(300, 300);
custBmp.LoadFromFile(sFn);
polyPoiF := VectorizeMonochrome(custBmp, 1, false);
for i := 0 to high(polyPoiF) do
memo1.Append(intToStr(i) + ': [' + floatToStr(polyPoiF[i].x) + ',' + floatToStr(polyPoiF[i].y) + ']');
end;