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.