Перемешение компонента по форме

[Vladya]

Всем доброго времени суток! Подскажите пожалуйста как заставить (в моем случае) лейбел переместится по форме с одной точки в другую, и остановиться там где мне нужно, но надо что бы он перемещался не сразу а потихоньку, что бы можно было видеть как он перемещается а не так что программа еще полностью не загрузилась а лейбел уже переехал.
Подскажите а то я что то ничего не могу найти.

[Showy]

Если проблема именно в перемещении объекта, то вот простой пример

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
  Label1.Left := Label1.Left + 2;
  if Label1.Left >= 300 then
    Timer1.Enabled := False;
end;

[mihali4]

Ну, это же очень просто... Вот я вам примерчик набросал:

var b: boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=False;
Timer1.Interval:=100;
Timer1.Enabled:=True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
b:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if b and (Label1.Left>100) then
Label1.Left:=Label1.Left-2 else
Timer1.Enabled:=False;
end;

[Vladya]

Спасибо большое!!! Оказывается таки все очень просто, а я пытался цикл впихнуть и из-за этого у меня и получалось что программа еще не загрузилась полностью а лейбел уже на месте