Vidden av et tegn :)

Hei! Jeg er ikke sikker på om ordet "Vidde" eksisterer på dansk, men på norsk betyr det "Width" på engelsk.

Jeg vil gjerne få vite vidden av et tegn... Er det ingen annen måte å gjøre dette på enn å lage f.eks. en TLabel (AutoSize), gi den StatusBox' skrift, sette inn tegnet, og deretter måle vidden av TLabel'et?

var
  I, W: Integer;
  S: String;
  lblTemp: TLabel;
begin
  lblTemp := TLabel.Create(nil);
  lblTemp.Font := StatusBox.Font;
  lblTemp.Caption := '-';
  W := lblTemp.Width;
  lblTemp.Free;
  SetLength(S, StatusBox.ClientWidth div W - 1);
  for I := 1 to (StatusBox.ClientWidth div W - 1) do
    S[I] := '-';
  StatusBox.Lines.Insert(0, S);
end;

Hvis det ikke er mulig, gir jeg bort 10 UP, og tar resten selv.
Får jeg et greit svar, gir jeg bort alt.

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel