procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '漢字123';
  Showmessage(IntToStr(Length(S) - Length(WideString(S))));//漢字數
  Showmessage(IntToStr(Length(WideString(S)) * 2 - Length(S)));//數位和字母數
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S1, S2: string;
  S3, S4: WideString;
  I, iCount: Integer;
begin
  S1 := '1234材';
  S2 := '51234';
  S3 := S1;
  S4 := S2;
  iCount := 0;
  for I := 1 to Length(S3) do
  begin
    if Pos(S3[I], S4) = 0 then
    begin
      Inc(iCount);
    end;
  end;
  ShowMessage(IntToStr(iCount));
end;