Applies toTDUnitDialog
DeclarationProcedure TestingStarts;Implementation
procedure TDUnitDialog.TestingStarts; begin UpdateStatus; // sleep(100); // !!! for testing End;