البحث داخل memo

[Mustapha29]

كود :

procedure TForm1.Button1Click(Sender: TObject); var  I, L: Integer; begin  Memo1.WordWrap:= False;  Memo1.Lines.LoadFromFile('http://ig-s-s...........');  I:= Pos('finalization', Memo1.Text);  if I > 0 then begin    L := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, I - 1, 0);    ShowMessage('Found at line ' + IntToStr(L)); // if you need to select the text found:    Memo1.SelStart := I - 1;    Memo1.SelLength := Length('finalization');    Memo1.SetFocus;  end; end;