PickList , ввод данных только из списка

[Jin X]

Всем привет.
Подскажите, плиз, как разрешить ввод данных в DBGrid только из списка PickList ?
Т.е. вводится другое значение – оно возвращается к старому.
Желательно более или менее подробно

[Jin X]

Сделал через TField.OnSetText:

procedure TForm3.FieldSetText(Sender: TField; const Text: String);
begin
  with DBGrid1 do
    if (Text = '') or (Columns[SelectedIndex].PickList.IndexOf(Text) >= 0) then Sender.AsString := Text;
end;