È un pò 1 casino ma non è impossibile.
potresti provare così:
procedure TROVA (StringaDaTrovare : string);
begin
for j := 1 to Memo1.Lines.Count do
for i := 1 to Length(Memo1.Lines[j]) do begin
if ((copy(Memo1.Lines[j], i, Length(StringaDaTrovare)) = StringaDaTrovare))
then hai trovato quello che cercavi
end;
questo pezzo di codice non ricerca parole intere, per ricercare parole intere non devi fare altro che mettere un controllo sul controllo che il i == 1 o che il carattere precedente sia spazio
per il modifica dipende tutto da cosa scrivi nel then
fammi sapere
roberto
Roberto