Как реализовать поиск далее по memo при повторном нажатии кнопки?
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Find:string;
i:integer;
begin
find:='""';
for i:=0 to Memo1.Lines.Count-1 do
if Pos(FIND, Memo1.Lines.Text)<>0
then
begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text);
end;
end;