помогите создать передвигающийся Label

среда программирования Delphi 7, необходимо что-бы с обоих сторон формы плавно выехали по 1 Label и соединившись остановились, как остановить их знаю, но не знаю как плавно заставить двигаться

полагаю что движения выполняются в процедуре таймера что-то типа

procedure TDataModule2.Timer1Timer(Sender: TObject);
var Pos:integer;
begin
Pos:=Pos+1;
Form1.Label1.Left:=Pos;
Form1.Update;
end;

или в каком либо цикле

вопрос решён! Спасибо юзеру IRQ