Как реализовать параллельный цикл в Delphi?

Как реализовать параллельный цикл в Delphi (Delphi 200X, Delphi XE)? Как это сделать лучше всего? А есть ли универсальное решение?

Пожалуйста, с примерами.