Filtrando un DBGrid con ADOTable

[eddg]

este es el código que tengo:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      If RadioButton1.Checked = True then Filtro := 'NOMBRE_IUPAC Like ''' +Edit1.Text+ '*'''
         else If RadioButton2.Checked = True then Filtro := 'FORMULA_MOLECULAR Like '''  +Edit1.Text+   '*''';
      ADOTable.Filter := Filtro;
      ADOTable.Filtered := True;
   end
   else ADOTable.Filtered := False;
end;

No se donde dices tu que coloque ese ASTERISCO...

Por favor dime como lo solucionarias?

Atentamente EDDG, gracias de antemano!