Взять текст строки Memo до определнного слова

[Marsel737]

Всем доброго времени суток.

Подскажите пожалуста как реализовать то, что я изложил в названии темы. Т.е. к примеру в мемо есть такой текст:

"Подскажите пожалуста
как реализовать то, что
я изложил в названии "

И мне нужно взять текст во второй строке, который идёт до слова что
З.ы. по форуму уже искал

[Alex Cones]

Копируем текст в строку, удаляем все до первого #10. #10 ищем Pos`ом. Далее Pos`ом ищем "что", копируем это значение в переменную N. Copy(S,1,N); - Вот и всё.

[Marsel737]

Alex Cones, немного недопоняли меня, мне нужно не слово что копировать, а то что идет до этого слова

[Пепел Феникса]

var i,j:integer;
begin
 i:=0;
 while i<=Memo1.Lines.Count-1 do 
  begin
   j:=Pos(Edit1.text,Memo1.Lines[i]);
   if j<=0 then continue;
   ShowMessage(Copy(Memo1.Lines[i],1,j-1));
   break;
  end;

[Sensizu]

А не проще использовать RichEdit. Тогда так:

var findAt:integer;
begin
findAt:=RichEdit.FintText('Слово',[spWholeWord]);
Memo1.Text:=Copy(RichEdit.Lines[0],0,findAt);

[Alex Cones]

Alex Cones, немного недопоняли меня, мне нужно не слово что копировать, а то что идет до этого слова

Если б вы знали, что вернет Pos('что',S); Вы бы так не сказали.

[Marsel737]

Всем большое спс