Поиск определённого текста в текстовом файле

[vitawt]

Есть текстовый файл с определённым текстом. Как прочитать из этого файла в компонент ТМемо только тот текст, который находится между, например словом "привет" и словом "пока" .
Помогите пожалуйсто очень нужно. Пробовал искать в интернете и ничего похожего не нашёл =(

[vitalik007]

заносишь в переменную text:string текст этот
потом берешь
i:=pos('привет',text);
j:=pos('пока',text);
showmessage(copy(text,i,j);

[darkstarx]

Сообщение от vitalik007

заносишь в переменную text:string текст этот
потом берешь
i:=pos('привет',text);
j:=pos('пока',text);
showmessage(copy(text,i,j);

только не
showmessage(copy(text,i,j); а
showmessage(copy(text,i,j-i);

[_Dmitry]

Если в файле 1000 строк текста, то длины string-a не хватит, чтобы засунуть в него весь файл. Код будет примерно таким:

var
  i: integer;
  ind: boolean;
  s: string;
  f: TextFile;
begin
  AssignFile(f,'file.txt');
  try
    reset(f);
  except
    ShowMessage('Файл не найден');
    exit;
  end;
  ind:=false;
  while not eof(f) do
    begin
      readln(f,s);
      i:=pos('привет',s);
      if (i <> 0) and (not ind) then
        begin
          delete(s,1,i+5);
          ind:=true;
        end;
      i:=pos('пока',s);
      if i <> 0 then
        begin
          delete(s,i,Length(s)-i+1);
          Memo1.Lines.Add(s);
          break;
        end;
      if ind then Memo1.Lines.Add(s);
    end;
  CloseFile(f);
end;

Т.е. читаем каждую строку по отдельности и пихаем в Memo то, что между 'привет' и 'пока'.
Пишу в онлайне без проверки, могут быть косяки...

[vitawt]

Спасибо всем большое, вы мне сильно помогли. Это то, что нужно.