Как остановить работу софта когда memo пустое

Как остановить работу софта когда в memo кончаются строки.
Вот код

 

if sMemo1.Lines.Count = 0 then Exit; // это выйти из sButton1Click

if sMemo1.Lines.Count = 0 then Close; // это выйти из программы

 

Спасибо