[[Caral]]

Hola
Tratemos de analizar este codigo:
DEJO CLARO QUE DE FUNCIONES NO SE NADA.
Empecemos por esta funcion:

Código Delphi [-]
function curp(apepat,apemat,nomb,fechanac,sexo,edo:string):string;
var ret:string;
begin
  ret:=apepat[1]+apepat[2]+apemat[1]+nomb[1]+fechanac[9]+fechanac[10]
  +fechanac[4]+fechanac[5]+fechanac[1]+fechanac[2]+sexo[1]+edo[1]+edo[6];
  curp:=ret;
end;

Para mi hay algo mal, la funcion es string y los datos que muestra NO ya que la variable REC tambien es String.
CREO que deberia de ser asi:

Código Delphi [-]
function curp(apepat,apemat,nomb,fechanac,sexo,edo:string):string;
var ret:string;
begin
  ret:=apepat['1']+apepat['2']+apemat['1']+nomb['1']+fechanac['9']+fechanac['10']
  +fechanac['4']+fechanac['5']+fechanac['1']+fechanac['2']+sexo['1']+edo['1']+edo['6'];
  curp:=ret;
end;

.
Si embargo sigo sin entenderla.
La segunda y tercera funciones entregan un valor CHAR, sin embargo en la concatenacion del boton esta como string.
Para mi podria hacerse asi:

Código Delphi [-]
function generaletra:String;
var pos:integer;
begin
  randomize;
  pos:=random(7)+1;
  case (pos) of
  1:generaletra:='A';
  2:generaletra:='B';
  3:generaletra:='C';
  4:generaletra:='D';
  5:generaletra:='E';
  6:generaletra:='F';
  7:generaletra:='G';
  end;
end;
function generanumero:String;
var pos:integer;
begin
  randomize;
  pos:=random(7)+1;
  case (pos) of
  1:generanumero:='0';
  2:generanumero:='1';
  3:generanumero:='2';
  4:generanumero:='3';
  5:generanumero:='4';
  6:generanumero:='5';
  7:generanumero:='6';
  end;
end;

El rango lo hace con una variable independiente asi que no afectaria, creo.
En la concatenacion pasa lo mismo, es un string.
La siguiente funcion pasa lo mismo que en la primera, para mi.
El evento del boton hace una concatenacion de todo, seria bueno saber si ESTADOS contiene algo o si existe ese combobox.
En el ultimo, hace que al combobox estados se le adhieran otros datos.

Eso es lo que entiendo de este codigo.
Saludos