Pesquisa através parte de nome em um texto

procedure BuscaRegistro(cds: TClientDataset; campo: string; conteudo: string);
var
  numRegistro: integer;
  bolEncontrou: boolean;
  strMensagem: string;
begin
  // verifica se o dataset está aberto e se o campo indicado existe
  if not cds.Active or (cds.FindField(campo) = nil) or cds.IsEmpty then
  begin
    if not cds.Active then
      strMensagem := 'A busca só pode ser realizada num dataset aberto'
    else
    if cds.IsEmpty then
      strMensagem := 'A pesquisa não pode ser realizada num dataset vazio'
    else
      strMensagem := 'O campo '''+campo+''' não existe no dataset';
    ShowMessage(strMensagem);
    exit;
  end;

  // guarda o registro posicionado antes de iniciar a pesquisa
  numRegistro := cds.RecNo;

  // inicializa a variável que indica se o texto foi encontrado
  bolEncontrou := False;

  // desabilita o refresh nos controles ligados ao dataset
  cds.DisableControls;

  // posiciona no primeiro registro
  cds.First;

  //varre o dataset à procura do conteudo desejado
  while not cds.Eof do
  begin
    // procura o valor digitado em qualquer parte do campo
    bolEncontrou := (Pos(AnsiUpperCase(conteudo), AnsiUpperCase(cds.FieldByName(campo).AsString)) > 0);

    // se encontrar o conteúdo, sai do loop
    if bolEncontrou then
      break;

    cds.Next;
  end;

  // se não encontrou um registro, reposiciona o ponteiro no registro inicial
  if not bolEncontrou then
    cds.RecNo := numRegistro;

  // habilita o refresh nos controles ligados ao dataset
  cds.EnableControls;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  BuscaRegistro(ClientDataSet1, 'Nome', Edit1.Text);
end;

type
  TXClientDataset = class(TClientDataset)
  public
    procedure BuscaRegistro(campo: string; conteudo: string);
  end;

procedure TXClientDataset.BuscaRegistro(campo,
  conteudo: string);
var
  numRegistro: integer;
  bolEncontrou: boolean;
  strMensagem: string;
begin
  // verifica se o dataset está aberto e se o campo indicado existe
  if not Self.Active or (Self.FindField(campo) = nil) or Self.IsEmpty then
  begin
    if not Self.Active then
      strMensagem := 'A busca só pode ser realizada num dataset aberto'
    else
    if Self.IsEmpty then
      strMensagem := 'A pesquisa não pode ser realizada num dataset vazio'
    else
      strMensagem := 'O campo '''+campo+''' não existe no dataset';
    ShowMessage(strMensagem);
    exit;
  end;

  // guarda o registro posicionado antes de iniciar a pesquisa
  numRegistro := Self.RecNo;

  // inicializa a variável que indica se o texto foi encontrado
  bolEncontrou := False;

  // desabilita o refresh nos controles ligados ao dataset
  Self.DisableControls;

  // posiciona no primeiro registro
  Self.First;

  //varre o dataset à procura do conteudo desejado
  while not Self.Eof do
  begin
    // procura o valor digitado em qualquer parte do campo
    bolEncontrou := (Pos(AnsiUpperCase(conteudo), AnsiUpperCase(Self.FieldByName(campo).AsString)) > 0);

    // se encontrar o conteúdo, sai do loop
    if bolEncontrou then
      break;

    Self.Next;
  end;

  // se não encontrou um registro, reposiciona o ponteiro no registro inicial
  if not bolEncontrou then
    Self.RecNo := numRegistro;

  // habilita o refresh nos controles ligados ao dataset
  Self.EnableControls;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  TXClientDataset(ClientDataSet1).BuscaRegistro('Nome', Edit1.Text);
end;

procedure BuscaRegistro(cds: TClientDataset; campo: string; conteudo: string);
var
  numRegistro: integer;
  bolEncontrou: boolean;
  strMensagem: string;
begin
  // verifica se o dataset está aberto e se o campo indicado existe
  if not cds.Active or (cds.FindField(campo) = nil) or cds.IsEmpty then
  begin
    if not cds.Active then
      strMensagem := 'A busca só pode ser realizada num dataset aberto'
    else
    if cds.IsEmpty then
      strMensagem := 'A pesquisa não pode ser realizada num dataset vazio'
    else
      strMensagem := 'O campo '''+campo+''' não existe no dataset';
    ShowMessage(strMensagem);
    exit;
  end;
 
  // guarda o registro posicionado antes de iniciar a pesquisa
  numRegistro := cds.RecNo;
 
  // inicializa a variável que indica se o texto foi encontrado
  bolEncontrou := False;
 
  // desabilita o refresh nos controles ligados ao dataset
  cds.DisableControls;
 
  // posiciona no primeiro registro
  cds.First;
 
  //varre o dataset à procura do conteudo desejado
  while not cds.Eof do
  begin
    // procura o valor digitado em qualquer parte do campo
    bolEncontrou := (Pos(AnsiUpperCase(conteudo), AnsiUpperCase(cds.FieldByName(campo).AsString)) > 0);
 
    // se encontrar o conteúdo, sai do loop
    if bolEncontrou then
      break;
 
    cds.Next;
  end;
 
  // se não encontrou um registro, reposiciona o ponteiro no registro inicial
  if not bolEncontrou then
    cds.RecNo := numRegistro;
 
  // habilita o refresh nos controles ligados ao dataset
  cds.EnableControls;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  BuscaRegistro(cdsClientes, 'Nome', Edit1.Text); // aqui você manda teu ClientDataset, o campo que será pesquisado, e o valor a ser procurado
end;

type
  TDataModule1 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure BuscaRegistro(cds: TClientDataset; campo: string; conteudo: string); // declaração da procedure como método do datamodule
  end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  DataModule1.BuscaRegistro(TeuClientDataset, CampoASerUtilizado, ConteudoProdurado); // aqui você manda teu ClientDataset, o campo que será pesquisado, e o valor a ser procurado
end;

type
  TDataModule1 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

procedure BuscaRegistro(cds: TClientDataset; campo: string; conteudo: string); // declaração da procedure fora da definição do DataModule

implementation

procedure TForm1.Edit1Change(Sender: TObject);
begin
  BuscaRegistro(TeuClientDataset, CampoASerUtilizado, ConteudoProdurado); // aqui você manda teu ClientDataset, o campo que será pesquisado, e o valor a ser procurado
end;