موقع ساخت ارایه بجایی اینکه داخل حلقه SetLength بزاری قبل از حلقه به تعداد 10 تا یا n تا رو SetLength کن بعد داخل حلقه ابجکت ها رو بساز.