IdWhois查询乱码修正

原代码

function TIdWHOIS.WhoIs(const ADomain: string): string;
begin
  Connect; try
    IOHandler.WriteLn(ADomain);
    Result := IOHandler.AllData;
  finally Disconnect; end;
end;

修改为

function TIdWHOIS.WhoIs(const ADomain: string): string;
begin
  Connect; try
    <span style="background-color: rgb(255, 102, 102);">IOHandler.DefStringEncoding := IndyUTF8Encoding();</span>
    IOHandler.WriteLn(ADomain);
    Result := IOHandler.AllData;
  finally Disconnect; end;
end;