1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure DC_TextOut(x,y,winkel,groesse:integer;txt:string);
var hfont, fontold : integer;
    dc             : hdc;
    fontname       : string;

begin
     if length(txt)= 0 then exit;
     dc := Screen.ActiveForm.Canvas.handle;
     SetBkMode(dc,transparent);
     fontname := Screen.ActiveForm.Canvas.font.name;
     hfont   := CreateFont(-groesse,0,winkel*10,0,fw_normal,0,0,0,1,4,$10,2,4,PChar(fontname));
     fontold := SelectObject(dc,hfont);
     TextOut(dc,x,y,PChar(txt),length(txt));
     SelectObject(dc, fontold);
     DeleteObject(hfont);
end;

procedure TForm1.FormResize(Sender: TObject);
var i,n,x,y : integer;
begin
    refresh;
    n := 60;
    i := 0;
    x := clientwidth div 2;
    y := clientheight div 2;
    while i < 500 do begin
        If n > 10 Then Dec(n,2) Else If n > 2 Then dec(n);
        DC_textout(x, y, i, n, '         rotierender Text');
        Inc(i,15);
    end;
end;