function FindColorsMulti(colors: TIntegerArray; xs, ys, xe, ye: Integer): TPointArray;
var
  l, i: Integer;
  ATPA: T2DPointArray;
begin
  ClearSameIntegers(colors);
  l := Length(colors);
  if (l < 1) then
    Exit;
  SetLength(ATPA, l);
  for i := 0 to (l - 1) do
    if ((colors[i] >= 0) and (colors[i] <= 16777215)) then
      FindColors(ATPA[i], colors[i], xs, ys, xe, ye);
  Result := MergeATPA(ATPA);
  SetLength(ATPA, 0);
  ClearSameIntegersAndTPA(colors, Result);
end;

var
  i: Integer;
  TPA: TPointArray;
  ATPA: array of TPointArray;

begin
  LoadFont('RSCMainFont', False);
  ClearDebug;
  ActivateClient;
  Wait(2000);
  i := GetSystemTime;
  TPA := FindColorsMulti([16776960, 4231423, 65535, 65280, 16777215], 3, 2, 311, 18);
  ATPA := SplitTPAEx(TPA, 1, 10);
  SetLength(TPA, 0);
  try
    WriteLn(GetTextATPA(ATPA, 4, 'RSCMainFont'));
  except
  end;
  SetLength(ATPA, 0);
  FreeFont('RSCMainFont');
end.