Создать приложение

[-=Mafia=-]

в котором по нажатию кнопки "Старт" падала линия, а по кнопке "Стоп" останавливалась.

[Valio]

Ну и что теперь?

[-=Mafia=-]

ну и как это сделать?

[AlDelta]

http://programmersclub.ru/labgrafica/

[phomm]

на форме таймер(интревал 50) и кнопка.
в таймере код:

with canvas do begin 
moveto(x,y);
pen.color := clbtnface;
lineto(x+w, y);
pen.color := clblack;
inc(y);
if y > clientheight
  then y := 0;
moveto(x,y);
lineto(x+w,y);

переменные x,y,w глобальные, начальные значения сами установите какие хотите.
в кнопке код:

в кнопке код timer.enabled := not timer.enabled;

ну и смену надписей сделайте, коли надо

[-=Mafia=-]

Сообщение от phomm

на форме таймер(интревал 50) и кнопка.
в таймере код:

with canvas do begin 
moveto(x,y);
pen.color := clbtnface;
lineto(x+w, y);
pen.color := clblack;
inc(y);
if y > clientheight
  then y := 0;
moveto(x,y);
lineto(x+w,y);

переменные x,y,w глобальные, начальные значения сами установите какие хотите.
в кнопке код:

в кнопке код timer.enabled := not timer.enabled;

ну и смену надписей сделайте, коли надо

что то линия не двигается

[phomm]

не надо комментировать предыдущий пост целиком, это моветон !

Сообщение от phomm

начальные значения сами установите какие хотите

это-то сделали надеюсь, для w как минимум ?