Получение значения в TDBGrid перед записью в в БД

Сдедующая функция покажет данные в столбце сетки, которая редактируется.

procedure TForm1.DBGrid1KeyUp(Sender: TObject;
               var Key: Word; Shift: TShiftState);
var
  B: byte;

begin
  for B := 0 to DBGrid1.ControlCount - 1 do
  if DBGrid1.Controls[B] is TInPlaceEdit then
  begin
    with DBGrid1.Controls[B] as TInPlaceEdit do
    begin
      Label1.Caption := 'Text = ' + Text;
    end;
  end;
end;

Смотрите в справочном файле относительно TInPlaceEdit для получения дополнительной информации.