如何使用Delphi xe6捕获mac地址

Question

如何使用delphi xe6获取所有适配器的mac地址？ 我得到了ip adreess

function MyFunction():String;
var
  registro  : TWSAData;
begin
  try
    WSAStartup(257, registro);
    Result := String(Trim(String(inet_ntoa(PInAddr(GetHostByName(nil)^.h_addr_list^ )^ ))));
    WSACleanup;
  except
    on Exp:Exception do
    begin
      Result := 'ERRO_IPCOMPUTADOR';
    end;
  end;
end;