Fórum CEP via net. Gerar consulta trazendo, nome, end, cidade... #245236

Var Vr_End:String;
    Vr_Txt: TextFile;
    Campo, Linha, Rua, Bairro, Cep, Cidade   :String;
    Result, Inicio, Fim,i  :Integer;

begin
     Vr_End:=´http://www.ceprocura.com.br/php/localidade_cep.php?vez=2&cep=´+EdtCEP.Text+´&Procurar=Procurar´;
     AssignFile(Vr_txt,´C:\ABASE\Despachante\TXT\www.TXT´);
     ReWrite(Vr_txt);
     CloseFile(Vr_Txt);
     HTTP.Post(Vr_End,´C:\ABASE\Despachante\TXT\www.TXT´);
     Editor.Text:= HTTP.Body;


     //Rua
     EdtHttp.Text:=´´;
     Campo :=´Endereço´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Rua :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´-´Then
               Rua := Rua+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(rua);
       End;
     //Bairro
     EdtHttp.Text:=´´;
     Campo :=´Bairro´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Bairro :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´<´Then
               Bairro := Bairro+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(Bairro);
       End;
     //Municipio
     EdtHttp.Text:=´´;
     Campo :=´Localidade´;
     Inicio:=0;
     Fim := Length(Editor.Text);
     Result := Editor.FindText( Campo ,Inicio,Fim,[stMatchCase]);
     If Result <> -1 Then
       Begin
         Editor.SelStart :=  Result;
         Editor.SelLength := 200;
         Editor.CutToClipboard;
         EdtHttp.PasteFromClipboard;
         Linha:= Trim(EdtHttp.Lines[01]);

         Linha:= Copy(Linha,33,50);
         i   :=1;
         Cidade :=´´;
         While i <= Length(Linha) Do
           Begin
             If Linha[i]=´&´Then
               I := I+5
             Else If Linha[i]<>´<´Then
               Cidade := Cidade+Linha[i]
             Else
               Break;
             i:=i+1;

           End;
         ShowMessage(Cidade);
       End;