Кидаем на форму 2 timera из вкладки system
Сразу отключаем их>>>False
Кликаем 2 раза по первому таймеру и пишем вот такой код между begin и end;
Код
form1.Left:= form1.Left-2;
sleep(20);
form1.Left:= form1.Left+2;
sleep(20);
form1.Top:=form1.Top+1;
sleep(20);
form1.Top:=form1.Top-1;
Ставим интервал первому таймеру 50
Кликаем 2 раза по второму таймеру и пишет следующий код, между begin и end;
Код
timer1.Enabled:=false;
timer2.Enabled:=false; [code]
Ставим интервал по желанию.Лично у меня он стоит 3500
Кликаем 2 раза по форме и пишем следующий код между begin и end
Код
timer1.Enabled:=true;
timer2.Enabled:=true;
