var
vv_i : integer;
vv_s : String ;
vv_r : String ;
begin
vv_s := '(아버지)가 가방에 들어가신다';
vv_r := '';
for vv_i := 1 to length(vv_s) do begin
if not((copy(vv_s,vv_i,1) = '(') or
(copy(vv_s,vv_i,1) = ')')) then begin
vv_r := vv_r + copy(vv_s,vv_i,1);
end;
end;
form1.caption := vv_r ;