TLabel Breite eingrenzen z.B. für SongTitel [ASM]

[FarAndBeyond]

Kann man eigentlich so etwas Kleines mit ASM schneller machen?
Kennt jemand hierzu den ASM-Code, dann kann ich das mal vergleichen ...

Delphi-Quellcode:

Function ChangeLabelWidth(Lab: TLabel; MaxWidth: Integer): Boolean;
  Var
   LabCap: String;
 Begin
  If Lab.Width <= MaxWidth
   Then
    Begin
     Result:= False;
     Exit;
    End
   Else
    Begin
     LabCap:= Lab.Caption;
     LabCap:= LabCap +'...';
      Repeat
       Delete(LabCap, (Length(LabCap)-3), 1);
       Lab.Caption:= LabCap;
      Until Lab.Width <= MaxWidth;
     Result:= True;
    End;
 End;