function GetIndex(const Subs: array of TaDirection; const Item: TaDirection): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(Subs) to High(Subs) do
  begin
    if CompareMem(@Subs[I], @Item, Length(Item) * SizeOf(TSubRect)) then
    begin
      Result := I;
      Exit;
    end;
  end;
end;