السلام عليكم هذا كود مختصر يفي بلغرض
كود :
var
lf : TLogFont;
tf : TFont;
begin
tf := TFont.Create;
tf.Assign(tqrdbtext(sender).Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 900;
tf.Handle := CreateFontIndirect(lf);
tqrdbtext(sender).font.assign(tf);
tf.free;
end;