liczba ujemna nie odszukana w zbiorze

procedure TForm1.Button1Click(Sender: TObject);
const
   INW : integer = -1;
begin
  if -1 in [ 1, 3, INW ] then
     showmessage( '123' );
end;

if zwraca False. Why?
dla 1 i 3 zachowuje się ok, ale nie dla -1.

Zbiory i informacja w ramce

noobem jestem -_-,
dziekuje