function FindBitmaps(var x, y: Integer; bmps: array of TSCARBitmap; XS, YS, XE, YE: Integer): Boolean;
var
  h, i: Integer;
begin
  h := High(bmps);
  Result := (h > -1);
  for i := 0 to h do
    if FindBitmap(x, y, bmps[i], XS, YS, XE, YE) then
      Exit;
  Result := False;
end;

var
  bitmaps: array of TSCARBitmap;
  x, y: Integer;

begin
  SetLength(bitmaps, 2);
  bitmaps[0] := TSCARBitmap.Create('deNrjZuBg+D8KwAAAODQHGw=='); // full white...
  bitmaps[1] := TSCARBitmap.Create('deNpjZmBiuD3BigEM/oMBkAsAR9oJSg=='); // random pixels...
  if FindBitmaps(x, y, bitmaps, 0, 0, 1199, 799) then
    WriteLn('Found some bitmap from bitmaps at ' + IntToStr(x) + ', ' + IntToStr(y));
end.