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;