можно попробывать выполнить вот такой вот код.
Код:
type
T_Int = 0..15;
var
r: T_Int;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
try
r:=application.handle;
finally
ListBox1.Items.Add(inttostr(application.handle)+' = '+inttostr(r));
end;
end;
Тоже выполняется. получается что контроль идет на уровне кода? Ваще че то логике не поддается не могу понять.