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

[Moneo]

Первод в Delphi заданного числа в выбранную систему счисления. Как это сделать? Задать требуется в Edit число и ввести систему счисления тоже в edit и результат в edit вывести. Искал в поиске по форуму, но то, что нашел не помогло.

[Сергeй]

Стучи в ICQ

[val_nnm]

для затравки, дальше сам

function DigitToChar(d:Byte):char;
Begin
  if (d<10) then 
    DigitToChar := chr(d+ord('0'))
  else
  { Это на случай системмы с основанием больше 10 например для шестнадцатеричной }
    DigitToChar := chr(d-10+ord('A'))
End;

function Convert(Value:Longint; Base:byte):string;
var s:string;
Begin
  s := '';
  repeat
    s := DigitToChar(Value mod Base)+s;
    Value := Value div Base;
  until (Value=0);
  Convert := s;
End;

[Moneo]

спасибо уже сам справился