GET /ad3/1011/1011925/240240_kongju.swf?click=http%3A%2F%2Fad.naver.com%2Fadclick%3Funit%3D005A%26ac%3D2090612%26src%3D1147091%26br%3D1136595 HTTP/1.1
Accept: */*
Accept-Language: ko-KR
Referer: http://ad.naver.com/adshow?unit=005A&qb=tajGxMDMIGNvcHk%3D
x-flash-version: 9,0,124,0
UA-CPU: x86
Accept-Encoding: gzip, deflate
If-Modified-Since: Thu, 02 Oct 2008 09:01:11 GMT
If-None-Match: "b9c020-1f3da-754de3c0"
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 1.1.4322)
Host: adcreative.naver.com
Connection: Keep-Alive
Cookie: page_uid=fMDPUwoi5Ussscmt2Fwsss--221645; _naver_usersession_=SOlbIBpH6UgAAFVSHNE; npic=2NjvdAKNdp3CWTzJ43mQ9gdB9B+s3BUQQ7Ei5TP91oqYXW4VSHihMMriA6ugh4ZLCA==; nsr_acl=1; NB=HAYTQMBRGM3DCNZV; NNB=QYY4GOGCW3IEQ; nvad_lc=LL,3020000000

이런식으로 패킷을 잡는 프로그램인데요.. 이 문자열에서 url( http://ad.naver.com/ 이런식)만 잡아서 체크박스에 체크됐을때 메모에 넣고싶은데요. 저는 델파이 7을 사용하고있습니다.
밑에는 제가 코딩한 것입니다.

si:='http://';
   k:='/';
   if checkbox1.Checked then
   begin
   if posEx(si,s,1)>0 then
   begin
      a:=posex(si,s,1);
      if posex(k,s,a)>0 then
      begin
      b:=PosEx(k,s,a);
      end;
   end;

   s1:=copy(s,a,b);

           memo2.Lines.add(s1);
end;

좀 도와주세요 ㅠㅠ

전 감기조심하시구요 기침만 2달째하는..그럼 수고^^