Du kannst das bild als TImage einfach einbauen, oder du nutzt die Canvas eines TImages und zeichnest Linien von Koordinaten, die immer um so 5px kleiner und größer werden. Dabei dürfte diese Zeichnung bei rauskommen. Du kannst dafür eine Zählerscheife nutzen:
var
i:integer;
begin
for i:=1 to "n" do
begin
TImage.canvas.......
end;
end;