procedure TextOutAngle(x,y,aAngle,aSize: integer; fuente,txt: string; C : TCanvas);
var hFont, Fontold: integer;
DC: hdc;
Fontname: string;
begin
        if length(txt)= 0 then
        EXIT;
        DC:= c.handle;
        SetBkMode(DC, transparent);
        hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_bold,0, 0,
        0,1,4,\$10,2,4,PChar(fuente));
        Fontold:= SelectObject(DC, hFont);
        TextOut(DC,x,y,PChar(txt), length(txt));
        SelectObject(DC, Fontold);
        DeleteObject(hFont);
end;