Курсовая работа: Программирование на Delphi с алгоритмами и кодами

var

i, j : integer;

begin

for i:=1 to screen.Width-r do // поканедостигнутконецэкрана

begin

form7.Color:=clGreen; //задаемформезеленыйцвет

form7.Left:=i; //задаем отступ формы слева

sleep(5); //задержка времени

//form7.Top:=j;

end;

for j:=1 to screen.Height-r do // поканедостигнутнизэкрана

begin

form7.Color:=clRed; // задаем форме красный цвет

form7.Top:=j; //задаем отступ сверху

sleep(5); // задержка времени

end;

fori:=screen.Width-rdownto 1 do // пока не достигнуто начало экрана

begin

form7.Color:=clBlue; // задаем форме синий цвет

form7.Left:=i; // задаем отступ слева

sleep(5); //задержка времени

//form7.Top:=j;

end;

for j:=screen.Height-r downto 1 do // поканедостигнутверхэкрана

begin

form7.Color:=clYellow; // задаемформежелтыйцвет

form7.Top:=j; //задаем отступ сверху

sleep(5); // задержка времени

end;