DBEdit + CTRL + UParrow

[Yuran]

Здрасте всем.

Задача:

Фокус установлен на DBEdit. Как сделать так чтоб при сочетании клавиш CTRL и стрелка вверх привязанное поле инкрементировалось (+) а при сочерании CTRL и стрелка вниз соответственно (-).

Все, уже разобрался!
1.

procedure TMain.DBEdit29KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssCtrl in Shift) and (key=38) then dm.ADOTable.FieldByName('1').AsInteger:= dm.ADOTable.FieldByName('1').AsInteger+1;
if (ssCtrl in Shift) and (key=40) then dm.ADOTable.FieldByName('1').AsInteger:= dm.ADOTable.FieldByName('1').AsInteger-1;
end;

и все работает!