Sehr schlechte Qualität bei gedrehtem Text

[Mario]

Ich muss gedrehten Text ausgeben:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Mfont: HFONT;
begin
  Mfont := CreateFont(12,   // FontSize
                      0,    // Breite der Zeichen
                      -450, // Winkel * 10
                      0,    // Winkel der Zeichen
                      0,    // Dicke der Zeichen
                      0,    // Kursiv
                      0,    // Unterstrichen
                      0,    // StrikOut
                      DEFAULT_CHARSET,
                      OUT_DEFAULT_PRECIS,
                      CLIP_DEFAULT_PRECIS,
                      PROOF_QUALITY,
                      DEFAULT_PITCH,
                      'Arial');

   // Erzeugte Schrift dem Canvas zuweisen
   SelectObject(Canvas.Handle, Mfont);

  Canvas.TextOut(20,1,'Dies ist ein Test');

  DeleteObject(Mfont);
end;

Es funktioniert, aber das Ergebnis ist unter Windows 2k/XP erschütternd, die anderen Systeme habe ich erst gar nicht probiert. Scheinbar ist Windows von der Angabe der Qualität völlig unbeeindruckt.



Hat jemand Ideen?