Delphi XE6 Android/iOS - Login com Facebook

Esta vídeo aula tem como objetivo ensinar como criar um projeto FireMonkey Android/iOS utilizando o delphi XE6 para logar utilizando a api do facebook/google... 



Espero que gostem, qualquer dúvida, sugestão ou comentário basta comentar aqui ou no meu blog. Abraços e bons estudos.

Link para mais informações de como utilizar a api: http://docwiki.embarcadero.com/RADStudio/XE5/en/REST_Client_Library#Accessing_Facebook_API

Link para criar o app no facebook: https://developers.facebook.com/apps

Pessoal, tem um erro em uma das funções.
Troque a função "Facebook_AccessTokenRedirect" por essa:

procedure TfrmPrincipal.Facebook_AccessTokenRedirect(const AURL: string;
var DoCloseWebView: boolean);
var
  LATPos: integer;
  LToken: string;
begin
  try
    LATPos := Pos('access_token=', AURL);
    if (LATPos > 0) then
    begin
      LToken := Copy(AURL, LATPos + 13, Length(AURL));
      if (Pos('&', LToken) > 0) then
      begin
        LToken := Copy(LToken, 1, Pos('&', LToken) - 1);
      end;

      FAccessToken := LToken;
      if (LToken <> '') then
      begin
        DoCloseWebView := True;
      end;
    end
    else
    begin
      LATPos := Pos('api_key=', AURL);
      if LATPos <= 0 then
      begin
        LATPos := Pos('access_denied', AURL);

        if (LATPos > 0) then
        begin
          //Acesso negado/usuário cancelou/usuário não permitiu o acesso
          FAccessToken := '';
          DoCloseWebView := True;
        end;
      end;
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  END;
end;