Влияние блока try на скорость, Особенно влияет содержимое блока except Опции

[TarasBer]

По идее влиять не должно. Однако

program TestTry;

{$APPTYPE CONSOLE}

uses
  Windows, Dialogs;

var
  T: integer;
  i: integer;

procedure Delay;
var
  i: integer;
  s: extended;
begin
  try
	s := sin(1);
  except
	ShowMessage('WTF?');
  //  ShowMessage('W T F ?');
	Halt;   
  end;
end;

begin
  T := GetTickCount;
  while T = GetTickCount do;
  T := GetTickCount;
  for i := 0 to 9999999 do Delay;
  i := GetTickCount - T;
  WriteLn(i);
  ReadLn;
end.

Все проверки убрал, отладчик выключил, оптимизацию включил.
В таком виде у меня выводит 2534-2544
Однако, если раскомментировать строчку со вторым сообщением, то он вдруг выводит 2834-2854.
Если добавить туда ещё строчку ShowMessage('W T F ?'), то он выведет 2613
Откуда берётся такая разница?
И как вообще устроен этот блок на самом деле?

[volvo]

С одним показом сообщения и с 3 скорость примерно одна, а с двумя - другая.

Да нет там показа, вот в чем проблема... Не было исключения - блок except проигнорировался... Если б был показ - то твоя программа тут же завершилась бы, ибо Halt находится там же...

Кстати, проверил этот же код в FPC (заменив ShowMessage на Writeln)... Мало того, что абсолютно одинаковое поведение (время нисколько не увеличивается вне зависимости от числа "выводимых" строк), так еще и время одно и то же. Что там что тут: 410