Сравнение в AdvStringGrid, Сравнение двух ячеек в AdvStringGrid Опции

[Atreides]

Добрый день!
Нужно сравнить два ячейки в AdvStringGrid.Казалось, что может быть проще, но что-то у меня возникли трудности. Задача, есть две колонки в гриде "от" и "до". Пользователь может редактировать обе, но значения "до" не должно быть меньше "от" и соответственно "от" не должно превышать "до", строка значений "от" и "до" одинаковая, разница только в колонках. В итоге нельзя отпускать пользователя пока не введет корректно. Не удается привязать ни к одному событию, ибо если число многозначное условие срабатывает на первом символе и не дает ввести дальше. Есть еще варианты кроме просто сравнения?

[Atreides]

Не владею С, вот попробовал. Вроде верно отрабатывает, но чет с фокусом не совсем разобрался. Мне как не отпускать пользователя с клетки?

Код

procedure TfrmNormRemont.sgNormRemontEditCellDone(Sender: TObject; ACol,
  ARow: Integer);
begin
if StrToInt(sgNormRemont.Cells[3, ARow])<StrToInt(sgNormRemont.Cells[2, ARow]) then
  begin
   ShowMessage('Oops, error!!!');
   sgNormRemont.SetFocus();
    sgNormRemont.EditMode :=True;
  end;
end;