[Darkseratul]

solo unos delles como quitarle las ; al end de la exprecion bueno la solución es mas o menos así

para que funcione tienes que quitarle en el adotable la función de Filtered ponerla en false.

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
If (Edit1.text <> '') then
begin
    DataModule1.ADOcompra.Filter := 'Nombredelconprador Like '''+ Edit1.Text +'*''';
    DataModule1.ADOcompra.Filtered:=True;
end // quitarle las ; si no funciona 
Else
begin
DataModule1.ADOcompra.Filtered:=False;
end;
end;

muchas gracias a rgstuamigo sin su ayuda no hubiese podido lograrlo
gracias gracias gracias gracias gracias gracias
saludos rgstuamigo gracias por tu tiempo