Relacionando tabelas

Tenho uma tabela onde o PKey é PagamantoId e para relacionar com os cadastros coloque uma FKey com EntidadeID.

Esta funcionando perfeitamente a unica coisa é que quando escolho o Cadastro tenho que mandar o Gen_Id pro Edit. Porém queria exebir o nome no campo ao inves do codigo. Só que fazendo isso da problema pois o banco esta esperando o ID. Como posso fazer isso dentro de um Insert.

O meu codigo esta assim:

>

ibqInsert.Close;

 ibqInsert.SQL.Clear;

 ibqInsert.SQL.Text := 'Insert Into PAGAMENTOS (PAGAMENTOID, ENTIDADEID, DATA, VALOR, FORMA, TIPO, OBS)'+ ' ' +

 'Values (Gen_Id(GEN_PAGAMENTOID, 1),' + QuotedStr(edEntidade.Text)+ ',' + QuotedStr(edData.Text)+ ',' +QuotedStr(edValor.Text)+ ',' +QuotedStr(IntToStr(cbForma.ItemIndex))+ ',' +QuotedStr(IntToStr(cbTipo.ItemIndex)) + ',' +QuotedStr(edObs.Text)+ ')';

 ibqInsert.ExecSQL;

 :blink: