diff --git a/Samples/FMX/Demo/Router4DelphiDemo.res b/Samples/FMX/Demo/Router4DelphiDemo.res
index 40531bb..717dc28 100644
Binary files a/Samples/FMX/Demo/Router4DelphiDemo.res and b/Samples/FMX/Demo/Router4DelphiDemo.res differ
diff --git a/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas b/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
index 31b1fb0..67d6073 100644
--- a/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
+++ b/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
@@ -14,6 +14,7 @@ type
     { Private declarations }
   public
     { Public declarations }
+    procedure Animation( aLayout : TFMXObject );
   end;
 
 var
@@ -28,9 +29,16 @@ uses
 
 {$R *.fmx}
 
+procedure TViewPrincipal.Animation(aLayout: TFMXObject);
+begin
+  TLayout(aLayout).Opacity := 0;
+  TLayout(aLayout).AnimateFloat('Opacity', 1, 0.2);
+end;
+
 procedure TViewPrincipal.FormCreate(Sender: TObject);
 begin
   TRouter4D.Render<TMainLayout>.SetElement(Layout1, Layout1);
+  TRouter4D.Link.Animation(Animation);
 end;
 
 end.
diff --git a/Samples/FMX/SimpleDemo/SimpleDemo.res b/Samples/FMX/SimpleDemo/SimpleDemo.res
index c0b549e..da8906f 100644
Binary files a/Samples/FMX/SimpleDemo/SimpleDemo.res and b/Samples/FMX/SimpleDemo/SimpleDemo.res differ
diff --git a/src/Router4D.Link.pas b/src/Router4D.Link.pas
index 0390a40..cca7bdc 100644
--- a/src/Router4D.Link.pas
+++ b/src/Router4D.Link.pas
@@ -41,10 +41,14 @@ type
     function IndexLink ( aPatch : String ) : iRouter4DLink;
   end;
 
+var
+  Router4DLink : iRouter4DLink;
+
 implementation
 
 { TRouter4DLink }
 
+
 uses Router4D.History;
 
 {$IFDEF HAS_FMX}
@@ -198,7 +202,13 @@ end;
 
 class function TRouter4DLink.New: iRouter4DLink;
 begin
-  Result := Self.Create;
+  if not Assigned(Router4DLink) then
+    Router4DLink := Self.Create;
+
+  Result := Router4DLink;
 end;
 
+initialization
+  Router4DLink := TRouter4DLink.New;
+
 end.