adoquery

Ответ от Oleh_Huz'[гуру]
Используй StringList и удаляй дубликаты. пример:
list := TStringList.Create;
list.Sorted := True;
list.Duplicates := dupIgnore;
While not ADOQuery1.Eof do begin
str := Trim(ADOQuery1.Fields[2].AsString);
if not String.IsNullOrEmpty(str) then list.Add(str);
ADOQuery1.Next;
end;
ComboBoxNameap.Items.Assign(list);
FreeAndNil(list);