ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);

begin

  Button1.Enabled:=False;
  Edit1.Enabled:=False; //т

  HttpCli1.URL       := Label4.Caption; //тут твой урл надо типа Edit впихнуть
  HttpCli1.RcvdStream := TFileStream.Create(Edit1.Text, fmCreate); //тут типа куда сохранять Edit1.Text
  try
        try
            HttpCli1.Get;
            Label2.Caption := 'Загружено ' +
                                 intToStr(HttpCli1.RcvdStream.Size) + ' bytes';
        except
            on E: EHttpException do begin
                Label7.Caption := 'Ошибка : ' +
                                     IntToStr(HttpCli1.StatusCode) + ' ' +
                                     HttpCli1.ReasonPhrase;;
            end
            else
                raise;
        end;
    finally
        Button1.Enabled   := TRUE;
        AbortButton.Enabled := FALSE; //кнопка отмены
        HttpCli1.RcvdStream.Destroy;
        HttpCli1.RcvdStream := nil;
    end;
end;

var
 s:string;
 i:integer;
begin
 for i:=0 to memo1.lines.count-1 do
  begin
   s:=memo1.lines[i];
   //делаеш чево то там с s
   memo1.lines[i]:=s;
  end;
end;

const
  b = '<begin>';
  e = '<end>';
var
 s: string;
 i: Integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    s := Memo1.Lines[i];
    Memo1.Lines[i]:=b+s+e;
  end;
end;