Canvas.Textwidth liefert falschen Wert

[EmWieMichael]

Ich mach das so:

Code:

function GetDots(S:String):Integer;
 var B:TBitMap; Font:TFont;
begin
  Font:=TFont.Create;
  Font.Name:='MS Sans Serif';
  Font.Height:=-11;
  Font.Size:=8;
  Font.Style:=[];
  Font.Pitch:=fpDefault;
  Font.PixelsPerInch:=96;
  B:=TBitMap.Create;
  B.Canvas.Font:=Font;
  Result:=B.Canvas.TextWidth(S);
  Font.Free;
  B.Free;
end;