Largo de una cadena en pixels sabiendo la fuente usada para imprimirla

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 482

function LargoTexto(texto : string; f : TFont) : integer;
var
aux : TFont;
begin
        aux:=Screen.ActiveForm.Canvas.font;
        Screen.ActiveForm.Canvas.font:=f;
        result:=Screen.ActiveForm.Canvas.textwidth(texto);
        Screen.ActiveForm.Canvas.font:=aux;
end;

Por ejemplo, se haria LargoTexto('Delphi es bastante mejor que el visual basic',fuente), siendo fuente una variable TFont definida en arial, negrita, 5 puntos, etc