放一个Image,Edit.这是立体字:
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.FillRect(rect(0,0,image1.Width,image1.Height));
image1.Canvas.Brush.Style:=bsclear;
image1.Canvas.Font.Size:=24;
image1.Canvas.Font.Color:=clblack;
image1.Canvas.TextOut(23,22,edit1.Text);
image1.Canvas.Font.Color:=clred;
image1.Canvas.TextOut(20,20,edit1.text);