Fórum Valor repetido em um Array #273132

procedure TForm1.Button1Click(Sender: TObject);
Var
    MeuArray : Array [1..10] Of Integer;
    C,J : Byte;
begin
   MeuArray[1]  := 1 ;
   MeuArray[2]  := 2 ;
   MeuArray[3]  := 1 ;
   MeuArray[4]  := 4 ;
   MeuArray[5]  := 5 ;
   MeuArray[6]  := 6 ;
   MeuArray[7]  := 7 ;
   MeuArray[8]  := 8 ;
   MeuArray[9]  := 9 ;
   MeuArray[10] := 10;

   For C := 1 To 10 Do
   Begin
      For J := 1 To 10 Do
      Begin
         If(J <> C)Then
         Begin
            If(MeuArray[C] = MeuArray[J])Then
            Begin
               ShowMessage(´Valores iguais no array´);
            End;
         End;
      End;
   End;
end;