procedure TForm1.FormCreate(Sender: TObject);
var //объявляем переменную
i: Integer; // переменная
begin
Timer1.Enabled:=False; // отключаем таймер. А проще присвоить ему изначально свойство Enabled:=False
Timer1.Interval:=10; // Интервал
Label1.Caption:=′Разработчик: ХХХ-team (2010-2011)′; // Показываемая строка
Timer1.Enabled:=True;// включаем таймер
end;
//=========================================
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Top>-30 then // когда лабел выйдет за пределы формы, таймер остановится
begin
Label1.Top:=Label1.Top-1;//Передвигаем на единицу вверх
i:=label1.top;//увеличиваем на 1 значение переменной
end
else
Form1.Timer1.Enabled:=False;// Останавливаем таймер
end;

Но есть проблемка :(
У меня немного моргает лабел при перемещении :(

Вопрос к знатокам:

Можно ли победить это моргание ?
Или по другому организовать эту задачу, используя другие компоненты ?

Спасибо за урок, очень полезный) вот только почему у Вас на видео при движении вправо был текст "Delphiexpert. ru самый классный АЙТ"? проверьте слово в капсе) где то 1 буква теряется..