TAdvStringGrid выбрать уникальные значения в столбике

[spirit-ua]

Всем Привет!

Есть компонент TAdvStringGrid из семейства TMS (можно отталкиваться и от стандарного TStringGrid), необходимо выбрать уникальные значения в столбике и добавить в TComboBox.

Можно методом перебора значений и проверки на уникальность но есть ли более "простой" способ?

[Аватар]

procedure TForm1.Button2Click(Sender: TObject);
var xList: TStringList;
begin
  xList:=TStringList.Create;
  xList.Sorted:=True;
  xList.Duplicates:=dupIgnore;
  xList.Add('10');
  xList.Add('200');
  xList.Add('10');
  xList.Add('5');
  Memo1.Lines.Assign(xList);
  xList.Free;
end;