Прорисовка букв

[Миша]

Подскажите пожалуйста как сделать так, чтобы при выведенные текста на форму с помощью функции TextOut буквы текста по своему контуру прорисовывались черным цветом а заливка их была белой. На перёд благодарю за помощь.

[alexBlack]

procedure ConturTextOut(Canvas:TCanvas; X, Y:integer; S:String);

 procedure preparePath;
 begin
   BeginPath(Canvas.Handle);
   Canvas.textOut(X, Y, S);
   endPath(Canvas.Handle);
 end;

var H:HRGN;
begin
   SetBkMode(Canvas.Handle, Windows.TRANSPARENT);

   preparePath;

   H := PathToRegion(Canvas.HAndle);
   Canvas.Brush.Color := clWhite;
   PaintRgn(Canvas.Handle, H);
   deleteObject(H);

   preparePath;

   Canvas.Pen.Color := clBlack;
   StrokePath(Canvas.Handle);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
   Canvas.font.Name  := 'Times new roman';
   Canvas.font.Size  := 72;
   Canvas.font.Style := [fsBold];
   ConturTextOut(Canvas, 10, 10, 'ConturTextOut');
end;

PS. Не знаю, может есть способ проще.

[Миша]

Благодарю за помощь. Попробую разобраться. Возможно что-то и выйдет. Но если тебе не трудно вышли готовый пример программы пожалуйста.

[alexBlack]

Собственно это вся программа.
Но если нужно - держите текстовый проект.