[Redstason]

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  a,i:integer;
begin
 i:=0;
 while (i<=Memo1.Lines.Count) do
  begin
   a := Pos('сейчас', Memo1.Lines[i]);
   if a > 0 then ShowMessage ('Нашел <<сейчас>> в строке № '+IntToStr(i+1)+'. Строка: '+Memo1.Lines[i]);
  Inc(i);
  end;
end;

Текст Мемо.Lines:

Вот
я сейчас
напишу текст сейчас