procedure F(x: object);
begin
  exit;
end;
 
begin
  F(1); // <--
end.

begin
  try
  except
    on e: EInvalidOp do // Если добавить сюда begin-end ошибка исчезнет.
  end; // <--
end.

uses Tuples, Writer;
var
  A: Tuple3;
  B, C, D: IntTuple2;
  
begin
  B := IntTpl2(1, 2);
  C := IntTpl2(3, 4);
  D := IntTpl2(5, 6);
  A := Tpl3(B, C, D);
  Println(A);
  Println(B[0]);
end.