:
:  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);      <==   이걸     b := posEx (k, s, a + length(si));     로 하고,
:       end;
:    end;
:
:    s1:=copy(s,a,b);     <== 여기는        s1 := copy (s, a, b-a+1);           로 해야 하는 것 아닌지?
:
:            memo2.Lines.add(s1);  
: end;
:
: 좀 도와주세요 ㅠㅠ
:
: 전 감기조심하시구요 기침만 2달째하는..그럼 수고^^