antialiasing delphi

procedure ShowText(Canvas: TCanvas; Text: string)
var
  LogFont: TLogFont;
begin
  GetObject(Canvas.Font.Handle, SizeOf(LogFont), Addr(LogFont));
  with LogFont do
  begin
    lfQuality := ANTIALIASED_QUALITY;
    lfOutPrecision := Out_TT_Only_Precis;
  end;
  Canvas.Font.Handle := CreateFontIndirect(LogFont);
end;


function GetTextWidth(Canvasowner: TForm; Text: string; TextFint: TFont): integer;
var OldFont: TFont;
begin
  OldFont := TFont.Create;
  try
    OldFont.Assign(CanvasOwner.Font);
    CanvasOwner.Font.Assign(TextFont);
    Result := CanvasOwner.Font.TextWidth(Text);
    CanvasOwner.Font.Assign(OldFont);
  finally
    OldFont.Free;
  end;
end;