so i tried to make simple app to check if entered number is odd or even. Also i wanted to handle EConvertError by entering Try and Except.

```
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var x:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
try
  x:=StrToInt(InputBox('Zadávanie','Napíš číslo',''));
  if x mod 2 = 0 then ShowMessage('Zadané číslo je párne')
  else ShowMessage('Zadané číslo je nepárne');
except
on E: EConvertError do
    ShowMessage('Zadávaj len čísla!');
end;
end;
end.

```

But this don't work and still showing the same exact **Project1.exe raised exception class EConvertError with message ''' is not a vaild integer value** instead of 'Zadávaj len čísla!'. Why?