Вопрос по поиску в memo

Как реализовать поиск далее по 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;