Código Delphi [-]begin while not Query1.eof do begin combobox1.items.add(Query1.fieldByName( 'Codigo').asString); Query1.next; end; end;
begin while not Query1.eof do begin combobox1.items.add(Query1.fieldByName( 'Codigo').asString); Query1.next; end; end;