Ich würde anstatt einem Bitmap einen Canvas und die Breite übergeben; das ist einfach flexibler.
Weil dann auch der Prozedurname nicht mehr passt würde ich vorschlagen:
Delphi-Quellcode:
procedure LimitLineWidths(AList: TStrings; Canvas:TCanvas; Width:Integer);
var
...