Erro no dephi: could no find source location to add method Tab tem.

Bom dia. estou seguindo o seguinte tutorial:

http://portal.tdevrocks.com.br/2014/09/14/tutorial-criando-meu-app-step-by-step-parte-i/

Adicionei um seguindo form, adicionei componentes configurei no OI e quando dou dois clicks no btn botão pra codificar da o seguinte erro:

could no find source location to add method Tab tem.

Seguem os codigos:

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.TabControl, FMX.Layouts, FMX.Controls.Presentation;

type
TtoolTitulos = class(TForm)
ToolBar1: TToolBar;
lytTitulos: TLayout;
tabctrTitulos: TTabControl;
TabItem1: TTabItem;
Label1: TLabel;
spbBack: TSpeedButton;
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
toolTitulos: TtoolTitulos;

implementation

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

uses UntMain;

E o primeiro formulário:

unit UntMain;

interface

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

type
TfrmMain = class(TForm)
lytMain: TLayout;
lstmnuMain: TListBox;
lstgrpListas: TListBoxGroupHeader;
lstiltitulos: TListBoxItem;
lstitUsuarios: TListBoxItem;
lstitTitulosAlugados: TListBoxItem;
lstgrpConfig: TListBoxGroupHeader;
lstitLogin: TListBoxItem;
AnimateDrawer: TFloatAnimation;
recBackground: TRectangle;
procedure lytMainClick(Sender: TObject);
private
{ Private declarations }
procedure HideMenu;
procedure ShowMenu;
procedure CancelMenu(Sender: TObject);
public
{ Public declarations }
procedure ShowHideMenu;
procedure ShowForm(AObject: TFmxObject);
procedure ShowBackGround(AParent: TfmxObject; AOnclick: Tnotifyevent=nil);
procedure HideBackground;
end;

var
frmMain: TfrmMain;

implementation

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TfrmMain.HideMenu;
begin
lstMnuMain.AnimateFloat(‘Position.X’, -Self.ClientWidth);

AnimateDrawer.StartValue := Self.ClientWidth - 40;
AnimateDrawer.StopValue := 0;
AnimateDrawer.Start;
end;

procedure TfrmMain.ShowMenu;
begin
AnimateDrawer.StartValue :=0;
AnimateDrawer.StopValue := Self.ClientWidth - C_MnuEspaco;
AnimateDrawer.Start;

lstMnuMain.AnimateFloat(‘position.x’, 0);

ShowBackground(Self.lytMain, CancelMenu);

end;

procedure TfrmMain.CancelMenu(Sender: TObject);
begin
HideBackGround;
ShowHideMenu;
end;

procedure TfrmMain.ShowHideMenu;

Var
Position: Single;
begin
Position := Self.ClientWidth - 40;
Case Self.lytMain.Position.x = position of
True: HideMemu;
False: ShowMenu;
end;
end;

procedure TfrmMain.ShowForm(AObject: tfmxObject);
Var
I: Integer;
begin
HideBackGround;
for I := 0 to pred(Self.lytMain.Children.Count) do
TControl(Self.lytMain.Children[I]).Visible :=
TControl(Self.lytMain.Children[I]) = TControl (AObject);

end;

procedure TfrmMain.ShowBackGround(AParent: TfmxObject; AOnclick: Tnotifyevent);
begin
recBackground.OnClick := AOnClick;
recBackground.Parent := AParent;
recBackground.BringToFront;
recBackground.Opacity := 0;
recBackground.Visible := True;
recBackground.AnimateFloat(‘opacity’, 0.5, 0.1);
end;

procedure TfrmMain.HideBackground;
begin
recBackground.AnimateFloat(‘opacity’, 0, 0.1);
recBackground.Visible := False;
end.
se alguém puder ajudar agradeço. Valeu.