Trabalhando com contatos

// Chamar a função para obter dados de um contato
contato := ApiEuAtendo1.ObterDadosContato(edtNumeroContato.Text,erro);

// Chamar a função para obter a foto de perfil de um contato
ApiEuAtendo1.ObterFotoPerfil(edtNumeroContato.Text);

// Evento disparado ao obter a foto de perfil do contato
procedure TForm9.ApiEuAtendo1ObterFotoPerfil(Sender: TObject;
  const FotoPerfilResponse: TFotoPerfilResponse);
begin

  if FotoPerfilResponse.Filepath <> '' then
	image1.Picture.LoadFromFile(FotoPerfilResponse.Filepath);
end;

// Chamar a função para verificar se o número é um WhatsApp válido
procedure TForm9.Button13Click(Sender: TObject);
var
  Numero, ErroMsg: string;
  Existe: Boolean;
begin
  Numero := edtNumeroContato.Text; // Assume que edtNumero é um TEdit onde o número é inserido
  try
	Existe := ApiEuAtendo1.ExistWhats(Numero, ErroMsg);
	if Existe then
	  memo1.Lines.add('O número ' + Numero + ' existe no WhatsApp.')
	else if ErroMsg <> '' then
	  memo1.Lines.add('Erro ao verificar o número: ' + ErroMsg)
	else
	  memo1.Lines.add('O número ' + Numero + ' não existe no WhatsApp.');
  except
	on E: Exception do
	begin
	  memo1.Lines.add('Erro ao verificar o número: ' + ErroMsg);
	end;
  end;
end;