初学delphi 问问

Question

任意输入一串字符，将其中小写字母转换成大写字母（其他字符不变），并记录小写字母的个数。菜鸟问题别见笑 ！谢谢

Answer 1

  count := 0 ;
  s:=edit1.Text;
  for i:=0 to Length(s) do
  begin
    if (ord(s[i])>=97) and  (ord(s[i])<=122) then
      count := count +1;
  end;
  Edit1.Text := UpperCase(s);
  ShowMessage('小写字母个数是：'+IntToStr(count));

Answer 2

能不能再详细点   开始定义是什么类型啊  用Edit2.text输出成大写。Edit3.text输出个数。  谢谢