schriftarten durchschalten

[everdream]

??? also so wie ich das hier gebastelt hab gibt mir das programm jetzt die liste aller schriftarten aus... sieht auch so aus als sollte der befehl das tun...

ich weiß nich, ob ich's falsch benutzt hab oder ob ich mich nur blöd ausgedrückt hab:
also, beispiel:
ich möchte den buchstaben 'a' in jeder vorhanden schriftart darstellen.
am liebsten wär mir dabei im moment ne for-to-do schleife, mit einer laufvariable, die die schriftart festlegt.
dann soll also die schleife durchlaufen, vom schema her etwa so:

Delphi-Quellcode:

for i:=1 to x do
begin
  listbox1.font:=listbox1.font+1; //natürrlich schwachsinn, aber vom prinzip her
  listbox1.items.add('a');
end;