ayuda con fuctions

[Yamato_No_oroch]

hola de nueva cuenta aqui molestando como siempre espero no molestarlos y esta es mi duda
en un codigo fuente que realize para generar una curp y un registro de credencial de lector me incomodo una cosa este es mi codigo:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ComCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    EDIT4: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    ESTADOS: TComboBoxEx;
    procedure Button1Click(Sender: TObject);
    procedure ComboBoxEx1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
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;
function generaletra:char;
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:char;
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;
 function elec(apepat,apemat,nomb,fechanac,edo,sexo:string):string;
 var ret:string;
 begin
 ret:=apepat[1]+apepat[3]+apemat[1]+apemat[3]+nomb[1]+nomb[3]+fechanac[9]+fechanac[10]
  +fechanac[4]+fechanac[5]+fechanac[1]+fechanac[2]+edo[10]+edo[11]+sexo[1];
  elec:=ret;
 end;
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit6.Text:=curp(edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit7.Text,ESTADOS.text)+(generaletra+g  eneraletra+generaletra)+(generanumero+generanumero);
  edit5.Text:=elec(edit1.Text,edit2.Text,edit3.Text,edit4.Text,ESTADOS.text,edit7.text)+(generanumero+  generanumero)+(generanumero);
end;
procedure TForm1.ComboBoxEx1Change(Sender: TObject);
begin
ESTADOS.items.Add('DURANGO  10  ');
ESTADOS.items.Add('COAHUILA 07  ');
ESTADOS.items.Add('CHIAPAS  05  ');
ESTADOS.items.Add('COLIMA   06  ');
end;
 
end.

la duda es esta en la marca verde donde esta el maskedit nomas lo cambia asi pero si intento correrlo no me deja porq necesito cambiar algo y nc q es y en la de color rojiso mi comando es un combobox e igual no me adiere los datos q le pido asi q si alguien pudiera ayudarme con este pequeño problema seria de mucha ayuda solo diganme si puedo cambiarlo para q me genere lo q quiero y si asi es donde podria ser
gracias a todos por su ayuda