[ecfisa]

Hola.

Otra alternativa es usar un TQuery:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM TU_TABLA WHERE TU_CAMPO LIKE :DATO';
    ParamByName('DATO').AsString:= '%' + Edit1.Text + '%';
    Open;
  end;
end;

Saludos.