[[oscarac]]

hola Cloayza

estuve revisando el codigo fuente que colocaste aqui
estoy intentando colocarlo en una libreria, pero no entiendo porque me sale un error

Código Delphi [-]
function _buscarRUC (var _RUC, _RazonSocial, _Direccion :String; _bRUC : Boolean) : string;
var URLCaptcha : string;
    URLQuery : string;
    url:String;
    edtCaptcha, edtConsPorRuc : string;
    _Cadena : WideString;
    i: Integer;
    SRazon : string;
    position, vContador : Integer;
    vCHAR, vCadena: string;
    IdHTTPSunat : TIdHTTP;
    mmData : TMemo;
begin
  _bRUC := False;
  if (_RUC <> '') and (Length (_RUC) = 11) then
  Begin
    _bRUC := true;
    IdHTTPSunat := TIdHTTP.Create();
    edtConsPorRuc := 'consPorRuc';
    URLCaptcha := 'http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=random';
    edtCaptcha :=IdHTTPSunat.Get(URLCaptcha);
    URLQuery := 'http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?nroRuc=%s&accion=%s&numRnd=%s';
    mmData := TMemo.Create(nil);  // si coloco self no me lo compila
    url:= Format(URLQuery,[_RUC,  {Número de RUC}
                           edtConsPorRuc, {El contenido debe ser "consPorRuc"}
                           edtCaptcha]);   {Numero aleatorio correspondiente al Captcha}

     mmData.lines.Text:= IdHTTPSunat.Get(url);   //// aqui sale error

     mmData.lines.Text:= replace_char_with_codes(mmData.lines.Text);

     _RUC := GetValues('xxxxxxxxx">Número de RUC: ',mmData.lines.Text);
  End;

mmData.lines.Text:= IdHTTPSunat.Get(url); //// aqui sale error


en esta linea aparece el error

EinvalidOperation with mensage 'Control' has no parent window`

el xxxxxx en la funcion getValues
va esto

[text](<td width="18%"[ ]*colspan=1[ ]*class="bgn"*>[/text]