위소스에서 마지막엔 ansistring용 copy로 자른다면 계속 안씨용으로 사용하시는게 원하는 답이 나오지 않을까 합니다, 그리고 위의 예제는 단순히 자르는것이라 그냥 사용하셔도 됩니다.(중간의 2바이트와 1바이트 혼용된 문자를 자르는것도 아니구요.)

vstr := '친구朋友friend';
bb := pos('', vstr) + 4;
bb := pos('', vstr); //그냥 pos사용
res := copy(vstr, bb, ee - bb);


혼용된 문자에서 중간중간을 삭제시
widestring 함수는 여러분들이 만들어 올린 함수들도 많아요.
그런데 어짜피 사용시 연결된 함수와 다양한 기능을 하려면 편하게 TNT컴포 사용하는게 나을지도 몰라요.
아니면, 컴포는 사용하지 않더라도 tnt에서 TntWideStrUtils나 TntWideStrings등 유닛만을 변형해서 사용하셔도 될거 같아요
아래는 tnt컴포에서 나온 함수입니다.
또는 여기 팁에보면 한글을 자를 때 깨지지 않게하는 것도 많이 올라와 있습니다

function WStrPos(Str, SubStr: PWideChar): PWideChar;
var
PSave: PWideChar;
P: PWideChar;
PSub: PWideChar;
begin
// returns a pointer to the first occurance of SubStr in Str
Result := nil;
if (Str <> nil) and (Str^ <> #0) and (SubStr <> nil) and (SubStr^ <> #0) then begin
P := Str;
While P^ <> #0 do begin
if P^ = SubStr^ then begin
// investigate possibility here
PSave := P;
PSub := SubStr;
While (P^ = PSub^) do begin
Inc(P);
Inc(PSub);
if (PSub^ = #0) then begin
Result := PSave;
exit; // found a match
end;
if (P^ = #0) then
exit; // no match, hit end of string
end;
P := PSave;
end;
Inc(P);
end;
end;
end;

감사합니다.
tnt컴포를 쓰면서도 tnt에 문자열처리전용유닛이 있는줄은 몰랐습니다.
앞으로도 많이 가르쳐주세요.