фильтр грида

[shalun43911]

Всем привет.
Помогите младшему товарищу. Только начинаю программировать.
Ситуация такая: выбрав пункт из комбобокса, грид фильтрируется.

Заранее спасибо.

[Stilet]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 with DBGrid1.DataSource.DataSet do begin
   Filter:='Поле='+QuotedStr(TComboBox(Sender).Text);
   Filtered:=true;
 end;
end;