No lo encontré, pero te armé esto:
Código Delphi
[-]
function IntToBase(Value: Integer; const Pattern: string): string;
var
B, R: Integer;
begin
Result := '';
B := Length(Pattern);
repeat
R := Value mod B;
Result := Pattern[R+1] + Result;
Value := Value div B;
until Value = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
NUMERO = 256;
begin
with Memo1.Lines do
begin
Add('Binario: ' + IntToBase(NUMERO, '01'));
Add('Hoctal: ' + IntToBase(NUMERO, '01234567'));
Add('Decimal: ' + IntToBase(NUMERO, '0123456789'));
Add('Hexadecimal: ' + IntToBase(NUMERO, '0123456789ABCDEF'));
Add('Letras: ' + IntToBase(NUMERO, 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ'));
end;
end;