[roman]

Una idea:

En un Bitmap (TBitmap) cargas la imagen de la espiral. En lugar de un TImage usa un PaintBox y en su evento OnPaint usas el método PaintBox.Canvas.Draw:

Código Delphi [-]
// Calculas cuantos "pedazos" necesitas
N := PaintBox1.Height div BitmapEspiral.Height;

// Dibujas en el canvas
for Y := 0 to N do
begin
  PaintBox.Canvas.Draw(0, Y*BitmapEspiral.Height, BitmapEspiral);
end;

Algo así, tú llenas los detalles.

// Saludos