Jak połączyć TStrings na String odpowiednim separatorem?

Funkcja jako argument przyjmuje obiekt TStrings oraz separator, którym zostaną oddzielone kolejne elementy TStrings.
Funkcja zwraca rezultat łączenia.

function Join(ASt: TStrings; ASep: String): String;

var

  i: Integer;

begin

  Result := '';

  for i := 0 to ASt.Count - 2 do // z -2 zeby nizej dodac bez Sep'a

    Result := Result + ASt + ASep;

  Result := Result + ASt[ASt.Count - 1]; // ostatni dodaj bez Sep'a

end;

function Join(ASt: TStrings; ASep: String): String;

var

i: Integer;

begin

Result := '';

for i := 0 to ASt.Count - 2 do // z -2 zeby nizej dodac bez Sep'a

Result := Result + ASt + ASep;

Result := Result + ASt[ASt.Count - 1]; // ostatni dodaj bez Sep'a

end;

Autor: Kkkas