Delphi search

[Maincore]

Здравствуйте уважаемые форумчане! Надеюсь на вашу помощь!
Итак задача в следующем:
Мне нужно организовать поиск предложений по компоненту memo, критерии поиска следующие:
Найти первое предложение взятое с edit:если находит,то тогда уже проверить существует ли предложение (взятое с переменой) находящееся после найденного предложения с edit?
Вот приблизительная схема работы:

Надеюсь на вашу помощь!

А чуть не забыл вот мой код:

var
con,i,h:integer;

begin
con:=Memo1.Lines.Count-1;
For i:= 0 to con do
begin

if Pos(edit1.text,Memo1.Lines.Strings[i])>0 then
begin
For h:= i to con do
begin
if Pos(find,Memo1.Lines.Strings[i])>0 then
begin
ShowMessage ('Find');
end;
end;
end;
end;
end;

[veniside]

так а вопрос в чём? Код вроде выглядит рабочим, немного причесать и готово:

var
  con,i,h:integer;
begin
  con:=Memo1.Lines.Count-1;
  For i:= 0 to con do begin
    //
    if Pos(edit1.text,Memo1.Lines.Strings[i])>0 then begin
      //
      For h:= i to con do begin
        //
        if Pos(find,Memo1.Lines.Strings[i])>0 then begin
           //
           ShowMessage ('Find');
           break;
        end;
      end; // for h
      //
      break;
    end; // pos edit
  end; // for i
end;

Регистр, кстати, надо учитывать при поиске?

[Maincore]

В принципе я нашел свою ошибку она заключалось в следующем

For h:= i to con do begin
//
if Pos(find,Memo1.Lines.Strings[h])>0 then begin
//
ShowMessage ('Find');
break;
end;

Но возник ли следующий вопрос:
Функция Pos у меня находить не полные строки к примеру:
В мемо текст следующий " 15 часов 45 мин 00 сек"
А искаемый текст выглядит так " 15 часов 45 мин" то функция находить их равными!
Это нормально так и должно быть?

P.S.
регист особого значения не имеет

[gesper]

Да, для этой функции это нормально.

Pos возвращает номер символа в строке, с которого начинается искомая тобой фраза. Она не сравнивает, она ищет фразу в предложении и говорит насколько далеко от начала эта фраза.