Найти слово с любым регистром

[Shouldercannon]

Как найти в Edit1 слово Неизвестный с любым регистром, так только если слово с большой буквы, а все остальные маленькие

if ENick.Text='Неизвестный' then ShowMessage('Бла-бла-бла');

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If AnsiUpperCase(Edit1.Text) = AnsiUpperCase('Неизвестный') Then
ShowMessage('Бла-бла-бла');
End;

[Daramant]

procedure TForm1.Button1Click(Sender: TObject);
var
  s, substr: String;
begin
  s := LowerCase(Edit1.Text);
  substr := LowerCase('Неизвестный');

    if Pos(substr, s) > 0 then
      ShowMessage('есть!');
end;

P.S. Можно подробнее насчет:

так только если слово с большой буквы, а все остальные маленькие

[Kotofff]

Автору ведь надо

...так только если слово с большой буквы, а все остальные маленькие

в смысле если я правильно понял поиск с учетом регистра, поэтому могу посоветовать модуль QStrings, его просто подключишь к проекту в uses и все. Описание всей кучи функций в самом модуле (по-русски!). Тебе нужна Q_PosTextLimited.