Здравствуйте, <Аноним>, Вы писали:

А>Подскажите, как в Delphi создать тела вращения?

Как, в общем то, и везде: брать плоскую фигуру и вращать вокруг произвольно выбранной оси.