var
tmpQry:Tquery;
i:integer;
begin
tmpqry := tquery.create(application);
tmpqry.DataBase := 'mydb';
tmpqry.sql.add('select distinct myfield from mytable');
tmpqry.open;
while not tmpqry.eof do //faster and safer than for
begin
dbcbx.items.add(tmpqry.fields[0].asstring);
tmpqry.next;
end;
tmpqry.free;
end;
