DBLookupcombobox.

Olá a todos, estou começando com programação em delphi e estou desenvolvendo um programa é estou com um problema estou fiz um form de cadastro de bombas de combustivel  segue imagem e coloquei nele um dblookupcombobox onde ele me mostra a descricão dos tipos de combustivel cadastrado até aí tudo bem, queria saber como faço para na hora de enserir uma nova bomba ele pegar o id já que na tabela bombas ela é chaveestrangeira.   estou inserindo dados da seguinte forma: begin
ADOQuery1.Append;
ADOQuery1.FieldByName('c_id_usuario').AsInteger := F_login.vId_usu;
ADOQuery1.FieldByName('c_id_empresa').AsInteger := F_login.vId_emp;
ADOQuery1.FieldByName('c_descricao').AsString := Edt_cdescricao.Text;
ADOQuery1.FieldByName('c_id_tipo_combustivel').AsInteger := strToint(DBLC_bombas.KeyField);
ADOQuery1.FieldByName('c_marca').AsString := Edt_cmarca.Text;
ADOQuery1.FieldByName('c_numero_serie').AsString := Edt_cnum_serie.Text;
ADOQuery1.FieldByName('c_numeracao_inicial').AsInteger := StrToInt(Edt_cnumeracao_inicial.Text);
ADOQuery1.Post;
end;