Link pra download: Projeto e biblioteca conexaobanco

Código da tabela Estado

 CREATE TABLE estado
(
 codigouf integer,
 sigla character varying(2),
 descricao character varying(50),
 handle serial NOT NULL,
 CONSTRAINT handle_estado PRIMARY KEY (handle)
)

Código do procedimento criado no vídeo.

procedure TfrmConfig.populaCombo;
begin
  FConexao.open('select * from estado order by sigla asc',cdsAula);
  dsAula.DataSet := cdsAula;
  dsAula.DataSet.First;
  while not dsAula.DataSet.Eof do
  begin
    cbbAula.Items.AddObject(dsAula.DataSet.FieldByName('sigla').AsString,
    TObject(dsAula.DataSet.FieldByName('handle').AsInteger));
    dsAula.DataSet.Next
  end;
  cbbAula.ItemIndex := 0;
end;