[[Caral]]

Hola
Perdona mi ignorancia pero sigo sin entender, tal vez analizando el codigo paso a paso lo pueda entender mejor, me ayudas?.
Primera parte:
Aqui defines una constante y las variables que haran una operacion final.

Código Delphi [-]
const
  sqlMuchos1 = ' Select * from muchos where IdTipo = "NM" ';
  sqlMuchos2 = ' Select * from muchos where IdTipo = "M" ';
var
  P,S,T : string;

Segunda parte:
Identificas las tablas con las constantes y las activas,
Con la primera tabla haces que la variable P contenga unos datos de la misma.

Código Delphi [-]
 with ADOQuery1 do
 P:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString+'  ';

Tercera Parte:
En el mismo ciclo haces que la variable S contenga los mismos datos que la variable P solo que con una una diferencia en el IdTipo, sumas las dos y luego colocas todo en un listBox.

Código Delphi [-]
S:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString;
  T:=P+S;
   ListBox1.Items.Add(T);
   next;

No se pero a mi me parece que se repiten un poco de todo, no es asi?.
Saludos