Fontes - listando as monospace

procedure TForm1.FontesMonoSpace(var Lista: TStringList);

var

  I: Integer;

begin

  Lista.Clear;

  Screen.Cursor := -11;

  for I := 0 to Screen.Fonts.Count-1 do

  begin

    Self.Canvas.Font.Name := Screen.Fonts[I];

    if Self.Canvas.TextWidth('I') = Self.Canvas.TextWidth('M') then

      Lista.Add(Screen.Fonts[I]);

  end;

  Screen.Cursor := 0;

end;