Code:

function ArrayToStr(str: TStrings; r: string): string;

var

i: integer;

begin

Result:='';

if str = nil then

   Exit;

for i := 0 to Str.Count-1 do

   Result := Result + Str.Strings[i] + r;

end;