//x,y integer olmalı//
form1.image1.Canvas.Brush.Color := clblue;
form1.image1.Canvas.Ellipse(x+32, y-32, x+40,y-40);
form1.image1.Canvas.Font.Color := clyellow;
form1.image1.Canvas.Font.size:=1 ;
form1.image1.Canvas.TextOut(x+39, y-56 ,dbedit1.text);