의외로 간단히 검색할 수 있습니다.

버튼, 에디트 박스, 메모를 폼에 놓으신 후

버튼을 클릭하면 에디트에 있는 문자를 메모창에서 찾는 것입니다.

var
   i : Integer;
begin
   for i := 0 to Memo1.Lines.count - 1 do
       if pos(Edit1.Text, Memo1.Lines[i]) <> 0 then
          ShowMessage('찾았습니다.');
end;

이렇게 하시면 됩니다.

조금만 응용하면 원하시는대로 가능하지 않을까요?

                                              /더기/