incval[01]:=1000;
  incval[02]:=900;
  incval[03]:=500;
  incval[04]:=400;
  incval[05]:=100;
  incval[06]:=090;
  incval[07]:=050;
  incval[08]:=040;
  incval[09]:=010;
  incval[10]:=009;
  incval[11]:=005;
  incval[12]:=004;
  incval[13]:=001;

  incs[01]:='M';
  incs[02]:='CM';
  incs[03]:='D';
  incs[04]:='CD';
  incs[05]:='C';
  incs[06]:='XC';
  incs[07]:='L';
  incs[08]:='XL';
  incs[09]:='X';
  incs[10]:='IX';
  incs[11]:='V';
  incs[12]:='IV';
  incs[13]:='I';
  res:='';
  for i:=1 to 13 do
  begin
    while decimal>=incval[i] do begin dec(decimal,incval[i]);res:=res+incs[i];end;
  end;