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

[nestquik]

!!!Целые числа!!!
Необходимо организовать переход из любой системы счисления в любую через десятичную.
Например перевести число XYZ из 36 в 2:
1) XYZ(36)=44027(10);
2) 44027(10)=1010101111111011(2);
К сообщению прилагаю все, что получилось сделать.
К сожалению моя программа работает не правильно, т.к. она переводит все подряд например: можно ввести в исходное число=ABA и исходную систему счисления=10, выходную систему счисления=2 тогда вместо того, чтобы выбить ошибку оно выведет результат=10001100000.

 var
  Form1: TForm1;
  cs1, cs2: longint;
  td: string;
const
  digit: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

implementation
{$R *.dfm}

{функция перевода Dec числа в любую сс}
function FromDec(n, r: longint): string;
var
  s: string;
begin
  s := '';
  repeat
    s := digit[(n mod r) + 1] + s;
    n := n div r;
  until n = 0;
  FromDec := s;
end;

{фунция перевода любой сс в Dec}
function ToDec(n: string; r: longint): longint;
var
  m, i: longint;
begin
  m := 0;
  while n[1] = '0' do
    delete(n, 1, 1);
  for i := 1 to length(n) do
    m := m * r + pos(n[i], digit) - 1;
  ToDec := m;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  td := Edit1.Text;
  cs1 := StrToInt(Edit2.Text);
  cs2 := StrToInt(Edit3.Text);
  Edit4.Text := FromDec(ToDec(td, cs1), cs2);
end;

end.

[nestquik]

На другом форуме помогли, если кому надо то вот: