1:
2:
3:
4:

Canvas.Font.Color := clSilver;
Canvas.TextOut(10, 10, 'Hallo Welt !!!');
Canvas.Font.Color := clBlack;
Canvas.TextOut(8, 8, 'Hallo Welt !!!');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var schrift,schatten:tbitmap;
begin

schatten:=tbitmap.create;
with schatten do
begin
Transparent:=true;
canvas.Brush.color:=clwhite;
canvas.Rectangle(0,0,100,20);
Width:=100;
Height:=50;
Canvas.Font.Color := clblue;
Canvas.TextOut(10, 10, 'Hallo Welt !!!');
end;
form1.Canvas.Draw(10,10,Schatten);

schrift:=tbitmap.create;
with schrift do
begin
Transparent:=true;
canvas.Brush.color:=clwhite;
canvas.Rectangle(0,0,100,20);
Width:=100;
Height:=50;
Canvas.Font.Color := clblack;
Canvas.TextOut(10, 10, 'Hallo Welt !!!');
end;
form1.Canvas.Draw(8,8,Schrift);                    

1:
2:
3:
4:
5:

Canvas.Font.Color := clsilver;
Canvas.TextOut(10, 10, 'Hallo Welt !!!');
Canvas.Brush.Style:=bsclear;
Canvas.Font.Color := clBlack;
Canvas.TextOut(8, 8, 'Hallo Welt !!!');