[DELPHI] Jak w canvas'ie ustawić obramowanie czcionki?

[DELPHI] Jak w canvas'ie ustawić obramowanie czcionki np. czcionka biała a dookoła czarna obwódka?

Obawiam się, że trzeba sobie samemu takie coś napisać.---------------------------
Delphi 6

Pozdrówka

Moze nie napisac a narysowac :)

var
S: String;
O: Integer;
begin
O:=2; // odstep ramki od textu
S:='Biały tekst, a dookoła czarna ramka :P';
with Form1.Canvas do
begin
Brush.Style:=bsClear;
Rectangle(10,10,TextWidth(S)+12+O,TextHeight(S)+12+O);
Font.Color:=clWhite;
Pen.Color:=clBlack;
TextOut(10+(O div 2),10+(O div 2),S);
end;--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

Sheitar napisał:
Moze nie napisac a narysowac :)
...

Ja zrozumiałem, że chodzi mu o biały tekst z czarną obwódką dookoła KAŻDEJ litery. Tzn tak, jakby narysował tekst na tekście. Mniej więcej coś takiego:
with Canvas do
begin
Font.Color := clBlack;
Font.Size := 70;
TextOut(50, 100, 'A');
Brush.Style := bsClear;
Font.Color := clWhite;
Font.Size := 50;
TextOut(50+7, 100+20, 'A');
end;--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.