Query1.Active := true;
Query1.First;
ComboBox1.Clear;
while not Query1.Eof do
begin
  ComboBox1.Items.Add(Query1.FieldByName('YourFieldName').AsString);
  Query1.Next;
end;