Код в VC6
CTest1 test1;
m_spIUtility->TimerStart();
for(int i = 0; i < c_iCount; i++) { test1.Inc(); }
m_spIUtility->TimerEnd(/*sbsInfo*/);
И код в Delphi
Utility1.TimerStart();
test1 := CTest1.Create(); ==================>>>> Это уже предвзятость!!!!!!!
for i := 0 To c_iCount do begin test1.Inc_m_i(); end;
Utility1.TimerEnd();