[donpedro]

Gracias Movorack, me sirvio de mucho.

Asi quedo el codigo de manera funcional

Código Delphi [-]
 if Length(Trim(Ebuscapacientes.text)) >0 then
  begin
  DSpacientes.dataset.Filter := Format('([nombres] like ''%%%0:s%%'') or ([apellidos] like ''%%%:0s%%'') or ([numero documento] like ''%%%:0s%%'')', [Trim(Ebuscapacientes.text)]);
   DSpacientes.DataSet.Filtered :=true;

  end
  else
    DSpacientes.Dataset.Filtered := False;

end;