1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TKasseForm.EingabeFeldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Text: String;
begin
  if (Key = VK_F10) OR (Key = VK_F12) then
  begin
    if KasseTabelle.Locate('BonNr',BonNr,[]) then
      Beep();     //Zur Kontrolle
    case KasseTabelle.State of
      dsBrowse:       Text := 'Browse';
      dsInactive:     Text := 'Inactive';
      dsEdit:         Text := 'Edit';
      dsInsert:       Text := 'Insert';
      dsSetKey:       Text := 'SetKey';
      dsCalcFields:   Text := 'CalcFields';
      dsFilter:       Text := 'Filter';
      dsNewValue:     Text := 'NewValue';
      dsOldValue:     Text := 'OldValue';
      dsCurValue:     Text := 'CurValue';
      dsBlockRead:    Text := 'BlockRead';
      dsInternalCalc: Text := 'InternalCalc';
      dsOpening:      Text := 'Opening';
    end;
    MessageDlg('Status: ds' + Text,mtInformation,[mbOK],0);
    KasseTabelle.Edit;
    if Key = VK_F10 then
    begin
      KasseTabelle['ZahlungsArt'] := 'Bar';					

1:

KasseTabelle.Edit;