Ausgewählte Textzeilen in tMemo mit Quote versehen

[teebee]

Delphi-Quellcode:

Var StartZeile: Integer;
    EndZeile: Integer;
    i: Integer;
Begin
 If Memo1.SelLength>0 Then Begin
  StartZeile := Memo1.Perform(EM_LINEFROMCHAR,Memo1.SelStart,0);
  EndZeile := Memo1.Perform(EM_LINEFROMCHAR,Memo1.SelStart+Memo1.SelLength,0);
  For i := StartZeile To EndZeile Do
   Memo1.Lines[i] := '>'+Memo1.Lines[i];
  End; 
End;

Markiert allerdings auch Zeilen, die nur teilweise markiert sind.
Gruß, teebee