1:
2:
3:
4:
5:
6:
7:
8:

if Table1.FieldByName('UmlagNr').AsString = Edit1.Text then
      begin
        Table1.Close;
        Table1.Exclusive := True;
        Check(DbiPackTable(Table1.DBHandle,Table1.Handle,nil,szDBASE,True));
        Table1.Delete;
        inc(count);
      end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Table1.Close;
if  AnzahlGeloeschte > 0 then
  with Table1 do begin
    Exclusive := True;
    Active := True;
    if Active and Exclusive then
      Check(DbiPackTable(DBHandle, Handle, nil, szDBASE, True))
    else
      Fehlermeldung; 
  end;