Помогите пожалуйста с проблемой в базе данных

if combobox1.Text='По ФИО' then begin
                                   if Edit1.Text='' then begin
                                   ShowMessage('Вы не указали предмет поиска!');
                                   exit;
                                                   end
                                   else begin Table1.Filter:='FIO='''+edit1.Text+'''';
                                              Table1.FilterOptions:=[foCaseInsensitive, foNoPartialCompare];
                                              Table1.Filtered:=true;
                                        end;
                                        end;