function ChiffreRomain(Chiffre:Integer):string;
const Nombres:array[1..13] of Integer=(1,4,5,9,10,40,50,90,100,400,500,900,1000);
Romains:array[1..13] of string=('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
var i:Integer;
St:String;
begin
St:='';
for i:=13 downto 1 do
while (Chiffre>=Nombres[i]) do
begin
Chiffre:=Chiffre-Nombres[i];
St:=St+Romains[i];
end;
result:=St;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=ChiffreRomain(25);
end;