[paldave]

Prueba esto:

Código Delphi [-]
procedure BorrarSeleccion;
var s:Integer;
begin
  s:=Memo1.SelStart;
  Memo1.Text := Copy(Memo1.Text,1,s)+ Copy(Memo1.Text, s+Memo1.SelLength+1,Length(Memo1.Text)-(s+Memo1.SelLength));
  memo1.SelStart :=s;
end;

Espero te sirva