Вот код для двоичного исчисления:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '0'; //Изначально зануляем поле Edit1
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
var i, x: integer;
s1, s2: string;
begin
x:=StrToInt (Edit1.Text);

// Алгоритм исчисления
while x > 1 do
begin
s1:=s1+IntToStr(x mod 2);
x:=x div 2;
end;
s1:=s1+'1';

// Переворачиваем строку (смотри теорию)
for i:=length(s1) downto 0 do
begin
s2:=s2+s1[i];
end;

// Выводим результат (заносим в поле Edit1)
Edit1.Text := s2;

end;