сделал так но приходится пройтись по всей базе

var
  str:String;
  i:Integer;
begin

while not Query1.Eof do begin
  str:= Query1.FieldByName('genre').AsString;
  if ComboBox_Genre.Items.Count <> 0 then
  begin
    for i:=0 to ComboBox_Genre.Items.Count-1 do
    begin
      if ComboBox_Genre.Items = str then break;
      if (i = (ComboBox_Genre.Items.Count-1)) and
          (str <> '') then
        ComboBox_Genre.Items.Add(str);
    end;
  end
  else
    ComboBox_Genre.Items.Add(str);
end;

млин как же я не догадался:
Query1.SQL.Text:= 'select distinct fieldName from dbName';
Query1.Open;
while not Query1.Eof do begin
ComboBox.Items.Add(Query1.FieldByName('fieldName').AsString);
Query1.Next;
end;
)