Encontre este codigo para orientarme pero el problema que solo busca el Texto EXACTO.Quiero algo parecido al finddialog de un bloc de notas pero un poco diferente.
Edit2 - Resultado de la palabra
Edit1 - Palabra a buscar
delphi
var ind:integer; salir:boolean; begin ind:=0; Salir:=false; while (ind<Memo1.Lines.Count) and not Salir do begin if Memo1.Lines[ind]=(Edit1.Text) then begin Edit2.Text:=Memo1.Lines[ind]; Salir:=true; end else inc(ind); end;
Espero que me hayan entendido Saludos....