post firemonkey fecha app

[lucdepaula]

Bom dia! 

Estou à dias quebrando cabeça, quando envio o POST o aplicativo fecha e não aparece nenhuma mensagem de erro na tela.

Abaixo está o trecho do botão para enviar a solicitação:

procedure TfmMenu.Button1Click(Sender: TObject);
var
 htp: TIdHTTP;
 url : string;
 lst : TStringList;
 jso : TJSONObject;
 jsod : TJSONObject;
 jsa : TJSONArray;
 psn, vErro : string;
 sts : integer;
begin
TThread.CreateAnonymousThread(
procedure()
begin
try

  sleep(2000);
  //processo para executar

  htp:= TIdHTTP.Create(nil);
  lst:= TStringList.Create;
  lst.Add('cpf=19628590880');
  lst.Add('senha=123');

  url:= 'https://agilizee.com.br/webService/loginParceiro.php';

  try
    try
      //url:= htp.Post(url, lst, retorno);
      vErro:= htp.Post(url, lst);
      ShowMessage(vErro);
    except
      on e : exception do
        ShowMessage('Erro ao enviar solicitação! Detalhes: ' + e.Message);
    end;
  finally
    FreeAndNil(htp);
    lst.Free;
  end;

  begin
    jso:= TJSONObject.ParseJSONValue(url) as TJSONObject;
    psn:= jso.GetValue('message').Value;
    sts:= strToInt(jso.GetValue('value').Value);

    if sts=200 then begin
      ShowMessage('OK ' + psn);
      Application.CreateForm(TfmMenu, fmMenu);
      fmMenu.Show;
    end else begin
      ShowMessage(psn);
    end;

    jso.Free;
  end;

TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
//após o click sincroniza
end);

except

  TThread.Synchronize (TThread.CurrentThread,
  procedure ()
  begin
  // caso aja erro

  end);
end;
end).Start;
end;

Se alguém puder me ajudar por favor agradeço desde já.

Este mesmo código acima tenho em outro aplicativo firemonkey e roda normal, neste fecha  o app e não aparece nada na tela.

Vou anexar tb o arquivo em php que criei para receber os dados.

inseriClienteApp.php