var window:longint;

Procedure SetupBramblePlugin;
begin
window:=GetClientWindowHandle;
end;

Function BColorFind(x,y,Color,x1,y1,x2,y2,Tol,xc,yc:integer;Flip:boolean):boolean;
begin
ControlledColorSearch(x,y,Color,x1,y1,x2,y2,Tol,xc,yc,Flip,Window);
end;