procedure writedc(s:string; x:integer; y:Integer; BGColor:TColor; FontColor:Tcolor; FontName:String = 'fixedsys');
var c: tcanvas;
begin 
c := tcanvas.create; 
c.brush.color := BGColor;
c.font.color := FONTColor;
c.font.name := FontName;
c.handle := getdc(getwindow(getdesktopwindow, gw_owner)); 
c.textout(x,y,s);
c.Refresh;
c.free;
end;