function FindFlag(var X, Y: Integer): Boolean;
var
  I, H, Map, DC, Wi, He: Integer;
  TPA: TPointArray;
begin
  Result := False;
  Map := BitmapFromString(MMX2 - MMX1, MMY2 - MMY1, '');
  CopyClientToBitmap(Map, MMX1, MMY1, MMX2, MMY2);
  DC := GetTargetDC;
  SetTargetDC(GetBitmapDC(Map));
  GetBitmapSize(Map, Wi, He);
  FindColors(TPA, 65536, 0, 0, Wi - 1, He -1);
  FilterPointsDist(TPA, 0, MMRDe, Wi / 2, He / 2);
  SetTargetDC(DC);
  H := High(TPA);
  for I := 0 to H do
    if ((FastGetPixel(Map, TPA[I].X - 1, TPA[I].Y - 1) - FastGetPixel(Map, TPA[I].X, TPA[I].Y - 1)) = 6381921) then
    begin
      Result := True;
      X := TPA[I].X + MMX1;
      Y := TPA[I].Y + MMY1;
      Break;
    end;
  FreeBitmap(Map);
end;