لكتابة نص مائل على الفورم

السلام عليكم ورحمة الله وبركاته

اليكم هذا الكود لكتابة نص مائل على الفورم سواء كان بالعربية ام بالإنجليزية

procedure TForm1.FormPaint(Sender: TObject);

var

lf : TLogFont;

tf : TFont;

begin

with Form1.Canvas do

begin

Font.Name := 'Arial';

Font.Size := 24;

tf := TFont.Create;

try

tf.Assign(Font);

GetObject(tf.Handle, sizeof(lf), @lf);

lf.lfEscapement := 320;

lf.lfOrientation := 320;

SetBkMode(Handle, TRANSPARENT);

tf.Handle := CreateFontIndirect(lf);

Font.Assign(tf);

finally

tf.Free;

end;

TextOut(10, Height div 2, 'أكتب النص المطلوب هنا');

end;

end;

(g)