Система счисления

var Radix1,Radix2:integer;
function CharToInt(Ch:char):integer;
begin //преобразование цифровой литеры в число
  case Ch of
    '0'..'9': Result:= Ord(Ch) - Ord('0');
    'A'..'F': Result:= Ord(Ch) - Ord('A') + 10;
     else Result:= 0;
  end;
end;
 
function IntToChar(N:integer):char;
begin //преобразование числа в цифровую литеру
  case N of
    0..9   : Result:= char(Ord('0') + N);
    10..15 : Result:= char(Ord('A') + N - 10);
    else Result:= '0';
  end;
end;
 
//===================== Основные функции ================================
 
function StringToInt(const S:string; Radix:integer):integer;
var i:integer; //преобразуем цифровую строку S в число
begin
  Result:= 0;
  for i:= 1 to Length(S) do
    Result:= Result*Radix + CharToInt(S[i]);
end;
 
function IntToString(N,Radix:integer):string;
begin //преобразуем число N в строку цифр
  while N > 0 do begin
    Result:= IntToChar(N mod Radix) + Result;
    N:= N div Radix;
  end;
end;
 
//===================== Обработчикм событий =======================
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: Radix1:= 2;
    1: Radix1:= 8;
    2: Radix1:= 10;
    3: Radix1:= 16;
  end;
  RadioGroup2.ItemIndex:= -1;
  Edit2.Clear; Edit1.SetFocus ;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Radix1 of
    2 : case Key of '0'..'1',#8,#13 : ; else Key:= #0 end;
    8 : case Key of '0'..'7',#8,#13 : ; else Key:= #0 end;
    10: case Key of '0'..'9',#8,#13 : ; else Key:= #0 end;
    16: case Key of '0'..'9','A'..'F','a'..'f',#8,#13 : ; else Key:= #0 end;
  end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  RadioGroup2.Enabled:= Length(Edit1.Text) > 0;
  Edit2.Clear;
  RadioGroup2.ItemIndex:= -1;
end;
 
 
procedure TForm1.RadioGroup2Click(Sender: TObject);
var N:integer;
begin
  N:= StringToInt(Edit1.Text,Radix1);
  case RadioGroup2.ItemIndex of
    0: Radix2:= 2;
    1: Radix2:= 8;
    2: Radix2:= 10;
    3: Radix2:= 16;
  end;
  Edit2.Text:= IntTOString(N,Radix2);
end;
 
begin
  Radix1:= 2; Radix2:= -1;