Errores f2047 y acces violation

[naruto2308]

hola como estan estos errores ya me sacaron de quicio, he intentado hacer que con un speed button me abra un panel, es que necesito que cuando yo le de al boton sin que me salga otra ventana salga como asi decirlo una pagina, ejemplo: si le doy a inicio vaya para la pagina de inicio, si le doy a informacion se vaya a la pagina de informacion, esto lo he estado intentando hacer con el speed button y un form, pero me saca el error f2047 y lo modifico y cambio el uses de lugar y sigue igual se auto crea otro uses que dice main; (asi le he puesto a la unidad) este es el codigo.

-----------main(formulario 1)

unit main;

interface

uses

Unit2,System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Ani,
FMX.StdCtrls, FMX.Controls.Presentation, FMX.ListBox, FMX.Layouts, FMX.Objects;

type
TForm2 = class(TForm)
ListBox1: TListBox;
ListBoxItem1: TListBoxItem;
ListBoxItem2: TListBoxItem;
ListBoxItem3: TListBoxItem;
ListBoxGroupHeader1: TListBoxGroupHeader;
Panel1: TPanel;
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
Circle1: TCircle;
AnimationD: TFloatAnimation;
Label2: TLabel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Image1: TImage;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;


implementation
{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
ControlX: single;
begin
ControlX := Self.ClientWidth - 60;

if (Panel1.Position.X = ControlX) then
begin
AnimationD.StartValue:= ControlX;
AnimationD.StopValue:= 0;

end

else begin
AnimationD.StartValue := 0;
AnimationD.StopValue := ControlX;

end;
AnimationD.Start;


end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
var
ControlX: single;
begin
form3.Show;
end;

end.


----------Unit2 (Formulario 2) se llama 3 porque he creado bastantes y no me ha dado ninguno

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm3 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation
uses main;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
form2.Show;
end;

end.