Совпадение текста в StringGrid

[Janger]

У меня в таблице в StringGrid, можно изменять ячейки.
Но как мне проверить, что введённый текст не совпадает с другими строками?....
Я написал вот такой код:

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
  slovo: string;
  de: Integer;
begin
 if Key=#13 then
 begin
    slovo:=StringGrid1.Cells[0,StringGrid1.Row];
    for de:=1 to StringGrid1.RowCount-1 do
    if de<>StringGrid1.Row then
      if StringGrid1.Cells[0,de]=slovo then
      begin
        ShowMessage('Имя уже занятно!');
        StringGrid1.Cells[0,StringGrid1.Row]:=oldslovo;
      end;
 end;
end;

Код работает нормально...
Вот только, пользователь может НЕ НАЖИМАТЬ НА ENTER...
А просто кликом переключиться на другую строку....
И уже в этом случае, я не могу проверить совпадение
=======================
p.s.
Так же, я хотел сделать проверку не при нажатии на кнопку Enter, а при нажатии на любую клавишу, но тогда возникает проблема:
--)
Имеющейся текст в StringGrid: (блок)
Я хочу ввести слово --> (блокнот)
--)
и условие мне выдаст совпадение, хотя я даже не дописал слово....
=================================== ==============
В общем подскажите что можно сделать....
Я как то растерялся с данной проблемой

[Stilet]

Будь проще: Вместо выдачи сообщений просто подсвети ячейку красным цветом если юзер внес туда повторяшку. И делать это можно не по нажатию энтера а просто при отрисовке грида.