Как вывести сообщение Toast?

begin
  inherited Create(AOwner);
  FOpacity := 1.0;
  FAppearanceDuration := 300;
  FDisappearanceDuration := 300;
  FDuration := 3000;
  FToastboxPosition := TPosition.Create(TPointF.Create(0, 0));
  FToastBoxMargin := TBounds.Create(TRectF.Create(100, 100, 100, 30));
  FToastBoxWidth := 100;
  FToastBoxStrokeThickness := 1;
  FTextColor := TAlphaColorRec.Black;
  FToastBoxColor := TAlphaColorRec.Gray;
  FToastBoxHeight := 50;
  FToastBoxAlign := TAlignLayout.alCenter;
  FTextFont := TFont.Create;
  FVersion := COMPONENT_VERSION;
  FInfo := INFO_URL;
  FWordWrap := true;
  if not(csDesigning in ComponentState) then
  begin
    self.FLayout := TLayout.Create(AOwner);
    self.FLayout.Parent := TFMXObject(self.Parent);
    self.FLayout.Visible := false;
    self.FRectangle := TRectangle.Create(AOwner);
    self.FRectangle.Parent := self.FLayout;
    self.FRectangle.Visible := false;
    self.FTextfield := TLabel.Create(AOwner);
    self.FTextfield.WordWrap := self.FWordWrap;
    self.FTextfield.Visible := false;
    self.FTextfield.FontColor := TAlphaColorRec.Red;
    self.FTextfield.Stored := false;
    self.FTextfield.Name := self.Name + 'Textfield';
    self.FTextfield.Parent := self.FLayout;
    self.FTextfield.Text := '';
    self.FTextfield.Align := TAlignLayout.alClient;
    self.FTextfield.StyledSettings := [];
    self.FTimer := TTimer.Create(AOwner);
    self.FTimer.Name := self.Name + 'Timer';
    self.FTimer.Enabled := false;
    self.FTimer.Interval := 1000;
    self.FTimer.OnTimer := self.HideToast;
  end;
end;