Mmm no hay mucho que decir, aprovecha el indice de las cadenas para definir el caracter que corresponde a segun que base.

function DecimalABaseN(num : integer; base : byte) : string;
var
aux : string;
begin
        // Solo hasta la 'o' = como máximo base 20... suficiente ¿no?
        aux:='0123456789ABCDEFGHIO';
        result:='';
        while num>0 do
        begin
                result:=aux[(num mod base)+1]+result;
                num:=num div base;
        end;
end;