[Olesya]

Помогите сделать поиск по фамилии. Столбец присоединен из другой таблицы и выведен в DBGrid.
Вообще у меня код работает, но для присоединённого столбца нет. Присоединенный столбец из ADODataSet1.
Использую ADOConnection1, DataSource4, ADOTable4.

Код:

procedure TForm1.Action16Execute(Sender: TObject);
begin
 if form1.PageControl1.ActivePage=tabsheet4 then
begin
   if Action16.Caption ='Посмотреть историю болезни'  then
      begin
        if Form9.ShowModal=mrOK then
          begin
            datamodule2.ADOTable4.Filter:='(Фамилия='+''''+Form9.Edit1.Text+''''+')';
            datamodule2.ADOTable4.Filtered:=true;
            Action16.Caption:= 'Отмена';
          end
        else
          begin
             datamodule2.ADOTable4.Filtered:=false;
            Action16.Caption:= 'Посмотреть историю болезни';
          end;
      end
    else
      begin
        datamodule2.ADOTable4.Filtered:=false;
       Action16.Caption:= 'Посмотреть историю болезни';
      end;
end;

end;