[vah-smile]

Вот код для двоичного исчисления:

Код:

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;

Для других систем исчисления просто подставляешь свой алгоритм (читай теорию).