Janilabo | TSAConcat() [SCAR Divi]

{==============================================================================]
  Explanation: Returns string of all TSA items binded together.
[==============================================================================}
function TSAConcat(TSA: TStrArray): string;
var
  h, i: Integer;
begin
  Result := '';
  h := High(TSA);
  for i := 0 to h do
    Result := (Result + string(TSA[i]));
end;

begin
  ClearDebug;
  WriteLn(TSAConcat(['This', ' ', 'is', ' ', 'a', ' ', 'test!']));
end.