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;