Ajuda com erro Delphi: could no find source location to add method Tab tem

Programação
#1

Bom dia. estou seguindo o seguinte tutorial:

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;

end.
se alguém puder ajudar agradeço. Valeu.

#2

Só um conselho. Trabalhei com Delphi desktop muitos anos, melhor ferramenta que existiu pra era desktop. Agora, Delphi pra mobile? Vai penar na hora de procurar soluções de problemas, pior ainda pra outras pessoas assumirem no futuro. Existem opções cross platform mobile bem mais difundidas, como Flutter e React Native.