Странность try..except

[voltron]

Код: Выделить всё

try
 TcpPort:=StrToInt(txtPort.Text);
except
 on EconvertError do
   begin
    Application.MessageBox('Некорректный ввод','Warning',0);
    TcpPort:=3306;
   end;
end;

использование этого кода при вводе нечисловых значений приводит к появлению MessageBox'a (как и планируется), после чего программа вылетает с access violation. Где я ошибся/что не так делаю?

[v-t-l]

С fpc-2.1.5-20070713-win32 работает нормально.
Может access violation где-нибудь в другом месте?