Memo Problem Zeile verschieben

[himitsu]

da aber mindestens
if (Memo1.Lines[i - 1] <> '') and (Memo1.Lines[i - 1][Length(Memo1.Lines[i - 1])] = ',') then denn was passiert, wenn die Zeile lehr ist?
genau es kommt eine Exception

Delphi-Quellcode:

var i: integer;
  S: String;
begin
  Memo1.Lines.BeginUpdate;
  for i := Memo1.Lines.Count - 1 downto 1 do begin
    S := Trim(Memo1.Lines[i - 1]);  // eventuell auch einfach nur TrimRight
    if (S <> '') and (S[Length(S)] = ',') then begin
      Memo1.Lines[i - 1] := Copy(S, 1, Length(S) - 1) + Memo1.Lines[i];
      Memo1.Lines.Delete(i);
    end;
  end;
  Memo1.Lines.EndUpdate;
end;