Поиск в тексте

[Terikon]

Привет всем ! Подскажите как лутше реализовать такой поиск, думаю использовать нужно регулярки
вот исходный текст
0001111000
0000110000
0000100000

вот такой вариант не катит

  s:='000111100'+#13#10+
                '000110000'+#13#10+
                '000010000';              

  if Pos(s,mmo1.Text)<>0 then begin
    ShowMessage('find');
  end;

так как исходный код может выглядеть так:

0001111010
0100110010
010010000

Например у меня есть эталон
0001111000
0000110000
000010000

и есть текст

0001111010
0100110010
0100100001

видим что некоторые нули заменены единицами, но нужный текст присутствует вот он

1111
11
1

В общем нужно проверить, существует ли в тексте это значение

1111
11
1

[Serge_Bliznykov]

прежде чем предложить какой-нибудь вариант решения.
ответьте, пожалуйста. в каких из вариантов ниже содержится заданный шаблон:
1)

0111111110
0111111110
1111111111
1111111111

2)

000001111
00000011
00000010

3)

1111000000000000
0110000000000000
0100000000000000

ну и ещё, шаблон жёстко задан или может изменяться?

p.s. и, если не секрет, что Вы таким способом решаете?..

[Terikon]

Во всех 3 -х присутсвует

1111
11
1

например есть текст
мне нужно узнать есть ли в нём вот такая фигура из едениц

1
111
1111

например вот в этом тексте осущетвить поиск
00100
01110
011110