Schrift Umrandung (Outline) auf Image realisieren

[OoNapiBLNoO]

ist denn sowas mit gemeint, also so hab ich das in der Schule gelernt *g

Delphi-Quellcode:

var x,y,Breite,Hoehe : Integer;
s : String;
begin
x:=30;
y:=20;
s:='Computer';
with Image1.Canvas do
begin
Font.Name:='Arial';
Font.Size:=24;
Breite:=TextWidth(s);
Hoehe:=TextHeight(s);
Rectangle(x-10,y-10,x+Breite+10,y+Hoehe+10);
TextOut(x,y,s);
end;
end;