Janilabo | TSAAppend() [SCAR Divi]

{==============================================================================]
  Explanation: Appends TSA with x.
[==============================================================================}
procedure TSAAppend(var TSA: TStrArray; x: string);
var
  aL: Integer;
begin
  aL := (Length(TSA) + 1);
  SetLength(TSA, aL);
  TSA[(aL - 1)] := string(x);
end;

var
  tmp: TStrArray;
  h, i: Integer;

begin
  ClearDebug;
  tmp := ['Test0', 'Test1', 'Test2', 'Test3', 'Test4', 'Test5', 'Test6', 'Test7', 'Test8'];
  TSAAppend(tmp, 'Test9');
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.