Delphi 10.3 получит изменения при объявлении переменных

begin
  var i, j: Integer;
  i:=1;
  j:=2;
end;

begin
  var i: Integer := 1;
  var j: Integer := 2;
end;

begin
  begin 
    var Intf: IInterface = GetInterface; // Intf.AddRef 
    var MRec: TManagedRecord = GetMRecValue; // MRec.Create + MRec.Assign 
    UseIntf(Intf); 
    UseMRec(MRec); 
  end; // Intf.Release and MRec.Destroy are implicitly called at end of scope
end;

begin
  var i := 1;
  var MyDictionary := TDictionary <string, Integer>.Create; 
  MyDictionary.Add ('one', 1); 
  var APair := MyDictionary.ExtractPair('one'); 
  ShowMessage (APair.Value.ToString);
end;

begin
  for var i: Integer := 1 to 10 do ...
  for var Item: TItemType in Collection do...
 
  for var i := 1 to 10 do ... 
  for var Item in Collection do ...
end;

begin
  const M: Integer = (L + H) div 2;
  const M = (L + H) div 2;
end;

  for var i:=0 to Count-1 do begin
    // ...
    if неминуемое_на_интервале_условие then Break;
  end;
  // упс, при выходе по Break счетчика уже не видно, нужно переносить объявление выше for.

  var i: Integer;
  for i:=0 to Count-1 do begin
    if неминуемое_на_интервале_условие then Break;
  end;
  // i доступно здесь

  var ii:=-1;
  for var i:=0 to Count-1 do begin
    // ...
    if условие then begin
      ii:=i; Break;
    end;
  end;
  // и что, снова проверять ii ?