Comparacion y validacion en Delphi

[donpedro]

Hola, bendiciones para todos. Agradezco sus opiniones, las cuales han sido de gran ayuda. Les cuento.

He tomado la idea de Oscarac, pero lo he hecho con arreglos. Ejemplo:

Declare un arreglo

Código Delphi [-]
var
  Form1: TForm1;
  i:integer;
  cadenas:array [1..10] of string;
  flag:boolean;
implementation

Luego los llene concatenando las lineas (que contienen 3 edit cada linea)

Código Delphi [-]
      cadenas[1]:=edit1.Text+edit2.Text+edit3.Text;
      cadenas[2]:=edit4.Text+edit5.Text+edit6.Text;
      cadenas[3]:=edit7.Text+edit8.Text+edit9.Text;
      cadenas[4]:=edit10.Text+edit11.Text+edit12.Text;
      cadenas[5]:=edit13.Text+edit14.Text+edit15.Text;
      cadenas[6]:=edit16.Text+edit17.Text+edit18.Text;
      cadenas[7]:=edit19.Text+edit20.Text+edit21.Text;
      cadenas[8]:=edit22.Text+edit23.Text+edit24.Text;
      cadenas[9]:=edit25.Text+edit26.Text+edit27.Text;
      cadenas[10]:=edit28.Text+edit29.Text+edit30.Text;

y con un FOR recorro los arreglos haciendo la comparacion

Código Delphi [-]
if (key=#13) then
begin
 for i := 1 to 10 do

if c1f4=cadenas[i] then
        begin
if messagedlg('Orden Numerico Utilizado',mterror,[mbok],0)=mrok then

         break;
        end;
end;

Esta solucionado, gracias a ustedes.

Pero me gustaria agregarle algo, y es que cuando encuentre una similitud, me gustaria saber en que columna y fila ya se habia introducido la combinacion de numero, ya sea, resaltando en color los edits que contienen los numeros.