procedure TForm3.Edit1Change(Sender: TObject);
var
  s:string;
  num:integer;
begin
s:=Edit1.Text;
num:=0;
while length(s)>0 do
begin
 if Ord(s[1])<128 then
   s:=copy(s,2,length(s))
 else
   s:=copy(s,3,length(s));
 inc(num);
end;
Edit2.Text:=IntToStr(num);
end;

var 
  ws : [color=#FF0000]WideString[/color]; 
begin 
  ws:='I 服了 you！'; 
  ShowMessage(IntToStr(Length(ws)));  //9 
end;