I hope somebody can give me some feedback on an idea how to simplify some of my code:

I hope somebody can give me some feedback on an idea how to simplify some of my code:
I have a lot of global arrays (Tarray<>) and a lot of For loops to read and fill data. When filling data I check for Length of array if it needs resizing:

SetLength(Array, 100);
vIdx := 0;
for i := 0 to n do
begin
// Check array size
if vIdx > High(Array) then
SetLength(Array, Length(Array * 2);
...
Array[vIdx] := ...
Inc(vIdx);
end;


Sometimes when I have multiple for loops on the same array in 1 method, I simplified by creating a local method CheckArray that checks for length and resizes if needed:

// local method
procedure CheckArray(aArrat: Tarray<>; aIdx: integer);
...

And I just call CheckArray(...) in For loop. The code is much neater.

And now I'm thinking of just creating CheckArray() for all types of arrays I have, with overload, so I can call CheckArray() with any array type from any For or other loops.

So, this would look like:

procedure CheckArray(aArray: Tarray; aIdx: integer); overload;
procedure CheckArray(aArray: Tarray; aIdx: integer); overload;
procedure CheckArray(aArray: Tarray; aIdx: integer); overload;
...

Before I go and start changing all my for loops, I am trying to see if this makes sense or not. If anybody tried that and for some reason was not working well.

Thanks!