a ver intenta de este modo:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);beginIf (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end
   else ADOTable.Filtered := False;
end;

o sino asi:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
If (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end;
end;

luego me comentas

Saludos.

Señores aqui coloco mi trabajo, y observen cual es el error! he hecho de todo y nada que me filtra el DBGrid, prueben uds y comenten!

http://rapidshare.com/files/60551252/prueba.zip.html

Hombre no te preocupes, ya estoy viendo tu viendo tu codigo y se cual es el problema y no nos habias comentado que estabas filtrando a traves de radiobuttons, en unos momentos te paso el codigo.

Hombre he resuelto tu problema aqui te envio de nuevo tu codigo con los arreglos:

Archivo Adjunto 1031

Nota: en la base de datos debes juntar el nombre del campo NOMBRE IUPAC quedando NOMBREIUPAC y en el codigo debe estar en Mayuscula tal como esta en la base de datos.

espero que eso resuelva tu problema cualquier duda me lo comentas.

Saludos.