Graphic Delphi

AComponentWithACanvas.Canvas.TextWidth('A');
AComponentWithACanvas.Canvas.TextHeight('X');