如何根据域名获得其使用的邮件服务器的地址(100分)

比如：我的公司网站是www.mycompany.com,我申请了企业邮箱，做了MX解析，能不能用DELPHI实现根据mycompany.com查询出MX的记录，请说明具体使用哪个组件，涉及的主要属性及方法。谢谢！

object DnsREsolver: TIdDNSResolver

QueryRecords = [qtMX]
Left = 200
Top = 128
end

qtMX 可以吗
？

能相信说一下吗？

详细说一下？

procedure TForm1.Button1Click(Sender: TObject);
var
s, QName, cs: string;
sl: TStringList;
i: integer;
MXRecord: TMXRecord;
begin
s := 'hfghfghfg@sohu.com';
QName := TrimRight(copy(s, Pos('@', s) + 1, Length(s)));
sl := TStringList.Create;
try
DnsREsolver.QueryRecords := [qtMX];
DnsREsolver.host := '192.168.1.1';
DnsREsolver.Resolve(QName);
sl.Add('Answers Count=' + IntToStr(DnsREsolver.QueryResult.Count));

for i := 0 to DnsREsolver.QueryResult.Count - 1 do
begin
//TMXRecord
cs := DnsREsolver.QueryResult.Items.ClassName;
if not SameText(cs, 'TMXRecord') then
Continue;
MXRecord := TMXRecord(DnsREsolver.QueryResult.Items);
sl.add(MXRecord.ExchangeServer);

end;
finally

end;
ShowMessage(sl.Text);
FreeAndNil(sl);
end;

？？？

谢谢，你的回答很即时，呵呵，加分