[Resolvido] Carregar dados em combobox

Estou usando essa rotina pra carregar o nome de um projeto num combobox

With frmdm.tbnomeprojeto do
begin

 Comboprojeto.Items.Add('SEM PROJETO');
 while not eof do
 begin
 Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
 Next;
 end;
 end;

No entanto preciso pegar o codigo de cada item que listei no combobox e jogar num edit.

Alguma ideia de como fazer?