var
 Hfont: Thandle;
 logfont: TLogFont;
 font: Thandle;
 count: integer;
begin
 LogFont.lfheight := 30;
 logfont.lfwidth := 10;
 logfont.lfweight := 900;
 LogFont.lfEscapement := -200;
 logfont.lfcharset := 1;
 logfont.lfoutprecision := out_tt_precis;
 logfont.lfquality := draft_quality;
 logfont.lfpitchandfamily := FF_Modern;
 font := createfontindirect(logfont);
 Selectobject(Form1.canvas.handle, font);
 SetTextColor(Form1.canvas.handle, rgb(0, 0, 200));
 SetBKmode(Form1.canvas.handle, transparent);
 {textout(form1.canvas.handle,10,10,'Повернутый',7);}
 for count := 1 to 100 do
 begin
  canvas.textout(Random(form1.width), Random(form1.height), 'Повернутый');
  SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255),
  Random(255)));
 end;
 deleteobject(font);
end;