二进制加法问题

我现在可以将十进制转换为二进制  但要进行二进制的加法  如何进行
下面是我的转二进制
var
j:integer;
s:String;
begin
   j:=strtoint(edit2.text) ;
   s:='';
   while j>=2 do
   begin if(j mod 2)=1 then
   begin
      s:='1'+s;
      j:=j div 2;
      end
   else
   begin
   s:='0'+s;
   j:=j div 2;
   end;
   end;
   s:=chr(ord('0')+j)+s;
   label2.Caption:=s;end;