buscar con pos

[marcoszorrilla]

El asunto creo que consta de dos partes:
1.- Extraer las palabras del Edit y guardarlas en otro lugar, en el ejemplo un Listbox.

2.- Comprobar si las palabras ubicadas en el listbox se encuentran en el campo memo.

Aquí tienes un ejemplo que consta de dos botones, con uno pasamos las palabras al listbox, he considerado que el separador es el espacio en blanco.

Y con el otro buscamos dichas ocurrencias.

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
j:Integer;
Posicion:Integer;
begin

  for j:= 0 to listbox1.Items.Count - 1 do
  begin
   
    for i:=0 to memo1.lines.count-1 do
      begin

      if Pos(Listbox1.Items[j],memo1.lines[i]) <> 0 then
      begin
      ShowMessage('Encontrada '+Listbox1.Items[j]);
      end;
      end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nBlanco:Integer;
nCont:integer;
cPalabra:String;
begin
  for nCont:=1 to Length(Edit1.text) do
  begin
   cPalabra:=cPalabra + edit1.text[nCont];

     if edit1.text[nCont] = ' ' then
     begin
     ListBox1.Items.Add(cPalabra);
     cPalabra:=''
     end;
  end;
  ListBox1.Items.Add(cPalabra);

end;

Un Saludo.