Fórum Caro amigo e_gama VEJA: #154856

Muito obrigado, pela dica. Mas achei a resposta para meu dilema, se nós não prestarmos a devida atenção nós nos perdemos, veja:

procedure TForm1.FormCreate(Sender: TObject);
var
iniciais:string;
i:integer;
begin
iniciais:=´ACALAMAPBACE´;
for i:=1 to 6 do
begin
combobox2.Items.Add(copy(iniciais,2*i-1,2));
end;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
nome:string;
begin
nome:=´ACRE ALAGOAS AMAZONASAMAPA BAHIA CEARA ´;
edit2.Text:=copy(nome,8*(combobox2.itemindex+1)-7, 8 ) ;
end;