一个小题

upcase 是什么意思呀他的功能是什么
 我有两个edit一个是edit1和edit2（两个的作用是向里面输入字符串）怎么把他转换成集合并在一个lable的caption里输出出现在其中（1）任一字符串中至少一次的字母
（2）同时出现在两个字符串中至少一次的字母
（3）出现在其中一个字符中而不出现在另一个字符串中的字母
（4）不出现在任一个字符串中的字母。
我知道是用集合的a+b 和a*b和a-b
但是怎么转换呢不明白下面是我写的（注意一下//后面的内容）
procedure TForm1.Button3Click(Sender: TObject);
type
  zimu=set of 'A'..'Z';
var zimu1,zimu2:zimu;
var i,j:string;
var m,n,q,p:integer;
begin
 //zimu1:=['A'..'Z'];
 //zimu2:=['A'..'Z'];
 if edit3.Text='' then showmessage('输入的第一个字符串不能为空');
 if edit4.Text='' then showmessage('输入的第二个字符串不能为空');
 //edit3.SetFocus;
 i:=edit3.text;
 j:=edit4.Text;
 m:=length(i);
 n:=length(j);
   for q:=1 to m do
        zimu1:=zimu1+[upcase(i[q])];
   for p:=1 to n do
     //label10.Caption:= upcase(i[q])+ upcase(j[p]);
        zimu2:=zimu2+[upcase(j[p])];
  label10.Caption:=zimu1+zimu2;
 // label11.Caption:=zimu1*zimu2;
 // label12.Caption:=zimu1-zimu2;
 // label13.Caption:=not(zimu1*zimu2);
end;
谢谢了帮帮忙