Признаки

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0','1',#8])then key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
//тетрады для перевода 2 в 16}
const tetr:array[0..15] of string[4]=('0000','0001','0010','0011',
                                      '0100','0101','0110','0111',
                                      '1000','1001','1010','1011',
                                      '1100','1101','1110','1111');
 
var s2,s16:string;
    i,sum:integer;
begin
s2:=Edit1.Text;
//перевод из СС 2 в СС 16
while length(s2) mod 4<>0 do s2:='0'+s2;//добавим в начало 0 до кратности 4
s16:='';
sum:=0;
while s2<>'' do
 begin
  for i:=0 to 15 do
  if copy(s2,1,4)=tetr[i]then //читаем тетраду
   begin
    if i in [0..9] then s16:=s16+chr(i+48)//пишем или цифру
    else s16:=s16+chr(i+55);//или букву A..F
    sum:=sum+i;
   end;
  delete(s2,1,4);//удалим тетраду
 end;
Label1.Caption:='В СС 16='+s16;
label2.Caption:='Сумма цифр='+inttostr(sum);
if sum mod 15=0 then label2.Caption:=label2.Caption+' она кратна 15, двоичное число кратно 16'
else label2.Caption:=label2.Caption+' она не кратна 15, двоичное число не кратно 16'
end;