Problemas al eliminar cadena de Richedit

[[oscarac]]

te piongo un ejemplo del delete
al pareces no esta tomando muy bien el hasta donde borrar

Código Delphi [-]
 
var
  Source : string;

begin
  Source := '12345678';
  Delete(Source, 3, 4);  && Borrar 4 caracteres a partir del tercero
  ShowMessage('Source now : '+Source);
end;

Muestra 1278