Есть очень простой и лёгкий способ в delphi, удалить пустые строки в memo, всего одной строчкой кода. Если же его немного дописать, то можно в delphi - удалить пустые строки из memo и показать их.
Memo1.Text := StringReplace(Memo1.Text, #13#10#13#10, #13#10, [rfReplaceAll]);
Больше примеров, в Delphi блог
перейти
Хотите научиться писать приложения для Windows?
курс Delphi
GURU - ТВОЁ ЛУЧШЕЕ РЕШЕНИЕ!