Memo1.Text:= StringReplace(Memo1.Text, #13#10+#13#10, '', [rfReplaceAll]);
Я не понял Вашего вопроса, но всё же Вам на него отвечу!