procedure enableControls;
//Normalerweise wird DisableControls in einem try...finally-Block aufgerufen, der die Steuerelemente wieder aktiviert, auch wenn eine Exception auftritt. Ein Beispiel:with CustTable do begin DisableControls; try First; while not Eof do begin { Jeden Datensatz hier bearbeiten } Next; end; finally EnableControls; end; end;