Удаление абзаца под кареткой, RichEdit. За вознаграждение!

[inkenvy]

Delphi 7. Есть текстовый редактор с RichEdit, нужно тыкнуть на абзац мышкой, и нажать кнопку, что бы она удаляла абзац под кареткой. Цену вопроса обсудим в личных сообщениях.

[Аватар]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: Integer;
begin
  i:=RichEdit1.SelStart;
  while i>0 do if RichEdit1.Text[i]=#10 then Break else Dec(i);
  RichEdit1.SelStart:=i;
  while i<Length(RichEdit1.Text) do if RichEdit1.Text[i+1]=#10 then Break else Inc(i);
  RichEdit1.SelLength:=i-RichEdit1.SelStart+1;
  RichEdit1.SelText:=''
end;