procedure Form1_TableGrid1_OnInputAccept (Sender: TObject; var Accept: Boolean);
begin
   // отменяет добавление записи, если в первой колонке ввели значение "123"
   if Form1.TableGrid1.Columns[0].InputValue = '123' then Accept := False;
end;

http://myvisualdatabase.com/doc_ru/proc … rTObj.html

Вы задачу вашу хотите решить или разобраться в тонкостях работы событий редактирования таблицы? Сформулируйте точней, какой вам нужен результат.

Наверное я не правильно понял. Помощь нужна мне в решении следующей проблемы:
Мне нужно получить сразу же вводимый в ячейку результат. Сейчас, при "OnEditAccept" я получаю предыдущий результат. При "OnAfterEdit" вообще никакого.

Буду благодарен за помощь!

Вы задачу вашу хотите решить или разобраться в тонкостях работы событий редактирования таблицы? Сформулируйте точней, какой вам нужен результат.

Решить задачу, постепенно вникая в тонкости работы событий. )

procedure Form1_TableGrid1_OnEditAccept (Sender: TObject; ACol, ARow: Integer; Value: String; var Accept: Boolean);
begin
    if ACol = 0 then Form1.Label1.Caption := Form1.TableGrid1.Cells[0, Form1.TableGrid1.SelectedRow];
end;

Получаю предыдущее, а не текущее значение.
В данном:

procedure Form1_TableGrid2_OnAfterEdit (Sender: TObject; ACol, ARow: Integer; Value: String);
begin
    if ACol = 0 then Form1.Label2.Caption := Form1.TableGrid1.Cells[0, Form1.TableGrid1.SelectedRow];
end;

Вообще ничего не получаю.

Где не углядел?