На самом деле это легко проверить:
Program TestBool;
Var timer, i, cursor: integer;
Begin
cursor:=0;
timer:=GetRelativeTimeMs;
for i:=0 to 1000000 do
begin
cursor:=(cursor+1) mod 5;// Вставляй строчки сюда
end;
timer:=GetRelativeTimeMs-timer;
DrawText(IntegerToString(timer),5,5);
Repaint; Delay(5000);
End.
У меня результаты такие:
1 ПРИМЕР
Эмулятор Siemens CX65 - 285мс
Эмулятор WTK - 1204мс
Эмулятор NHAL midp2exe - 219мс
2 ПРИМЕР
Эмулятор Siemens CX65 - 310мс
Эмулятор WTK - 1484мс
Эмулятор NHAL midp2exe - 250мс
Так что я был прав. Первый пример и короче и выполняется быстрее.