تحويل النص إلى صورة ثلاثية الابعاد

المقادير :

1- ملعقة واحدة من Edit

2- ملعقة واحدة من Image

3- ملعقة واحدة من Button

procedure TForm1.Button1Click(Sender: TObject);
Var
  MyMsg : String;
  TextW : Integer;
begin

Image1.Canvas.Font.Style := [fsItalic, fsBold];
Image1.Canvas.Brush.Style := bsClear;

Image1.Canvas.Font.Name := 'Arial Rounded MT Bold';
Image1.Canvas.Font.Size := 32;
 MyMsg := Edit1.Text;

 TextW := Image1.Width div 2 - (Image1.Canvas.TextWidth(MyMsg) div 2);

With Image1.Canvas Do
 Begin
  Font.Color := clBlack;
  TextOut(TextW, 10, MyMsg);
  Font.Color := clGray;
  TextOut(TextW - 1, 9, MyMsg);
  Font.Color := clGray;
  TextOut(TextW - 2, 8, MyMsg);
  Font.Color := clSilver;
  TextOut(TextW - 3, 7, MyMsg);
  Font.Color := clSilver;
  TextOut(TextW - 4, 6, MyMsg);
  Font.Color := clRed;
  TextOut(TextW - 5, 5, MyMsg);
 End;

end;

تحياتي