Das BeginUpdate/EndUpdate würde ich noch verschieben, damit es nur einmal aufgerufen wird.
Delphi-Quellcode:
if ObjektFrame.TabControlKfzSparte.TabCount >= 0
then
begin
ObjektFrame.TabControlKfzSparte.BeginUpdate;
try
x:= ObjektFrame.TabControlKfzSparte.TabCount -1;
while ObjektFrame.TabControlKfzSparte.TabCount -1 >= 0
do
begin
ObjektFrame.TabControlKfzSparte.Delete(x);
dec(x,1);
end;
finally
ObjektFrame.TabControlKfzSparte.EndUpdate;
end;
end;