Find start på linien

Jeg har en TStringlist, der i nogle tilfælde vil indeholde en hel del strings (omkring 600).
Jeg skal bruge en optimeret funktion som returnerer der hvor en given linie starter. Indtil videre har jeg benyttet følgende metode:

function TSyntaxEdit.GetStartOfLine(const L: Integer): Integer;
var
  I, Charcount: Integer;
begin
  I := 0;
  Charcount := 0;
  while (I < Lines.Count) and (I < L) do
    begin
      // Add to charcount. A linebreak counts as two chars
      Charcount := Charcount + Length(Lines.Strings[I]) + 2;
      inc(I);
    end;
  Result := Charcount;
end;

Det giver sig selv at hvis man sætter L til 599 kan denne funktion godt tage et lille stykke tid, og derfor vil jeg gerne høre om der er en mere optimal måde at gøre det på, dvs mindre processor krævende.