用 ICS 的 DNSQuery 控件:
dns.Addr:= dns服务器地址
dns.MXLookup(你要查的地址,比如 '21cn.com' , '163.net' 之类);
写dns控件的 OnRequestDone 事件
var
i:integer;
begin
if Error=0 then
for i:=0 to dns.ResponseANCount-1 do
begin
if(dns.AnswerTag>=0)then
ShowMessage(dns.MXExchange[dns.AnswerTag]);
end;
end;