procedure TForm1.Button1Click(Sender: TObject);
begin
 FloatAnimation1.Enabled := True;
 FloatAnimation1.StartValue := Form1.Width;
 FloatAnimation1.StopValue := 0-Label1.Width;
end;


object Label1: TLabel
AutoSize = True
Position.X = 240.000000000000000000
Position.Y = 232.000000000000000000
Size.Width = 37.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Label1'
object FloatAnimation1: TFloatAnimation
  Duration = 1.000000000000000000
  Loop = True
  PropertyName = 'Position.X'
  StartValue = 0.000000000000000000
  StartFromCurrent = True
  StopValue = 0.000000000000000000
end
end
object Button1: TButton
 Position.X = 248.000000000000000000
 Position.Y = 312.000000000000000000
 TabOrder = 1
 Text = 'Button1'
 OnClick = Button1Click
end