procedure TForm1.Button1Click(Sender: TObject);   
var   
   logfont:TLogFont;   
   font: Thandle;   
   count: integer;   
begin   
       LogFont.lfheight:=20;   
       logfont.lfwidth:=20;   
       logfont.lfweight:=750;   
       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);   
  
       for count:=1 to 100 do   
       begin   
        canvas.textout(Random(form1.width),Random(form1.height),'Hello');   
        SetTextColor(form1.canvas.handle,rgb(Random(255),Random(255),Random   
         (255)));   
       end;   
     Deleteobject(font);   
end;