Achei este tutorialzinho.
Um pouco vago mas funcionou.
http://blogs.liws.com.br/cesar/?p=3
Mas tome cuidado se você tiver várias versões do Delphi na tua máquina.
Como converter decimal para romanos em Delphi
-
function DecToRoman( Decimal: LongInt ): String;
{Converte um numero decimal em algarismos romanos}
const
Romans: Array[1..13] of String = ( 'I', 'I...
