Delphi - Se puede limitar la cantidad de lineas en un Memo?

Hola a todos, quisiera saber si se puede limitar la cantidad de lineas en un TMemo?, por ejemplo en un Memo quiero que se pueda introducir hasta 3 lineas. Se puede?

puedes poner esto en el evento <onchange> del memo

If memo1.lines.count > 3 then
memo1.lines.Delete(memo1.lines.count - 1);

Muchas gracias.