Перевод из любой системы счисления в любую

procedure TForm1.ButtonClick(Sender: TObject);
const digit='0123456789ABCDEF';
var
ss1,ss2,z,i,j,l,ok:longint;
s,ch,con:string[100];
symbol:array [1..16] of set of char;
begin
  ok:=0;
  s:=num.Text;  
  for i:=length(s) downto 1 do
   if (s[i]=' ') then delete(s,i,1);
  num.Text:=s;
  for i:=1 to 16 do symbol[i]:=['0'..digit[i]];  //ìíîæåñòâà äëÿ ïðîâåðêè íà îøèáêè
 
  if (num.Text='') then ShowMessage('Ââåäèòå ÷èñëî!')
   else
      for l:=1 to length(num.Text) do
        if not(num.Text[l] in symbol[StrToInt(ComboBox1.Text)]) then //åñëè ÷èñëî íå â ýòîì ìíîæåñòâå
          begin                                                       //òî âûâîäèì îøèáêó
           ShowMessage('Ïðîâåðüòå ââåä¸ííûå äàííûå!');
           ok:=1;
           break
          end;
          if (ok=0) then
            begin
              ss1:=StrToInt(ComboBox1.Text);
              ss2:=StrToInt(ComboBox2.Text);
              ch:=num.Text;
              if ((ss1>=2) and (ss1<=16)) and ((ss2>=2) and (ss2<=16)) then
                  begin
                    z:=0;
                    while (ch[1]='0') do
                     delete(ch,1,1);
                    for i:=1 to length(ch) do
                     z:=z*ss1+pos(ch[i],digit)-1;
                    ch:='';
                    repeat
                     ch:=digit[(z mod ss2)+1]+ch;
                     z:=z div ss2;
                    until z=0;
                    Con:=ch;
                  end;
               Otvet.Text:=Con;
          end;
end;