Эффект перелистывания книги

[P.A.S.C.A.L.]

Всем привет. У меня к вам такой вопрос: как сделать эффект перелистывания страницы через TTimer.
Саму книгу я нарисовал:

with Form1.Canvas do
begin
Pen.Width:=3;
MoveTo(120,305);  LineTo(220,300);
MoveTo(270,300);  LineTo(370,305);
Arc(220,295,270,305,220,301,270,301);

Pen.Width:=2;
MoveTo(130,295);  LineTo(220,290);
MoveTo(270,290);  LineTo(360,295);
Arc(220,285,270,295,220,291,270,291);

MoveTo(130,295);  LineTo(120,190);
MoveTo(360,295);  LineTo(370,190);

MoveTo(245,294);  LineTo(245,170);

MoveTo(130,295);  LineTo(145,275);
MoveTo(360,295);  LineTo(345,275);

MoveTo(120,190);  LineTo(135,170);
MoveTo(370,190);  LineTo(355,170);

MoveTo(145,275);  LineTo(135,170);
MoveTo(345,275);  LineTo(355,170);

MoveTo(145,275);  LineTo(235,270);
MoveTo(345,275);  LineTo(255,270);
MoveTo(235,270);  LineTo(245,280);
MoveTo(255,270);  LineTo(244,280);

MoveTo(135,170);  LineTo(235,160);
MoveTo(355,170);  LineTo(255,160);
MoveTo(235,160);  LineTo(245,170);
MoveTo(255,160);  LineTo(244,170);

MoveTo(235,270);  LineTo(235,160);
MoveTo(255,270);  LineTo(255,160);

Pen.Width:=3;
MoveTo(120,305);  LineTo(105,180);
MoveTo(370,305);  LineTo(385,180);

MoveTo(105,180);  LineTo(127,178);
MoveTo(385,180);  LineTo(363,178);

end;

Выглядит вот так:


Как легче сдать перелистывывающуюся страницу (справа налево)?
Заранее благодарен

[Stilet]

Хы... Я бы лучше нарисовал Flash или типа него анимацию, но не в Делфи а в специально предназначенных для такого средах проектирования

[P.A.S.C.A.L.]

В этом то вся и загвоздка. Ну жно это сделать в Delphi