Buscar en un memo

[jusnjosesch]

Prueba con esto busca y busca siguiente;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
    Posicion:longint;
    Cadena:string;
    nCont,band,lpos:integer;
begin
Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
if lpos > 0 then  lpos:= lpos + 1;
  Cadena:=edit1.Text;
   band:=0;
  For nCont:=Lpos to memo1.Lines.Count -1  do
    begin
     if pos((cadena),(memo1.lines[nCont])) > 0 then
     begin
      Posicion:=pos((cadena),(Memo1.lines[nCont]))-1;
      memo1.SelStart:= posicion+Memo1.Perform(EM_LINEINDEX, ncont, 0);
      memo1.SelLength:=Length(cadena);
      memo1.SetFocus;
      band:= 1;
      break;
    end;
  end;
if band=0 then showmessage('no se encuenta '+cadena);

end;

suerte