VISUALISATION RTF DE VOS POLICES

procedure ListAllPolices(FileName:string);
var Fic : textfile;
    x   : integer;
begin
  AssignFile(Fic,FileName);
  try
    Rewrite(Fic);

    WriteLn(Fic, '{\rtf1\ansi\ansicpg1252\deff0\deflang1036');
    WriteLn(Fic, '{\fonttbl');

    for x:=0 to Screen.Fonts.Count-1 do
      WriteLn(Fic, '  {\f'+IntToStr(x)+'\fnil\fprq2\fcharset0 '+Screen.Fonts[x]+';}');
    WriteLn(Fic, '}');

    for x:=0 to Screen.Fonts.Count-1 do
      WriteLn(Fic, '\f'+IntToStr(x)+' Police '+Screen.Fonts[x]+'\par');
    WriteLn(Fic, '}'+#0);

  finally
    CloseFile(Fic);
  end;
end;