[Alfredo]

Hola, virginia...

Prueba este codigo: (es de trucomania Nº 117)

procedure TForm1.Button1Click(Sender: TObject);
var
  Hfont: Thandle;
  logfont:TLogFont;
  font: Thandle;
  count: integer;
begin
  LogFont.lfheight:=30;
  logfont.lfwidth:=10;
  logfont.lfweight:=900;
  {Angulo * 10}
  LogFont.lfEscapement:=-450;
  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),'Rotated');
  SetTextColor(form1.canvas.handle,rgb(Random(255),Random(255),Random(255)));
    end;
  deleteobject(font);

end;

Con unos pocos arreglos pudiera ser de ayuda....