> -- Grabli писал(а):
> как узнать ширину символа "W", шрифта "Arial"?

Посмотрите Ports:

(f: Frame) CharPos (x, index: INTEGER; IN s: ARRAY OF CHAR; font: Fonts.Font): INTEGER

f.CharPos( 0, 1, "Wx", <Arial> )