Create animated text running from bottom to top with Delphi7

in this post we are still discussing about creating animations with Delphi 7,, ie animated text running from bottom to top, perhaps,, in the previous post, we have discussed about the animation-animation basic,,, which, if developed will to be a Reliable program .. or maybe we could modify it to be a useful application ...

create animated text running from bottom to top
Create a 'Form' as shown below :

Click on 'timer1', then change it property..
timer1  |           interval             |    5          |

Double click on 'timer1', then copy red text below...

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Top:=label1.Top-1;

if(label1.Top+label1.Height)<=0 then label1.Top:=panel1.Height;

end;

ok...now, to try this program,, click 'Run menu' or 'F9'

good luck..........