MEMO控件如何禁止光标向上移动？还有MEMO控件如何判断当前行是空行？(0分)

MEMO控件如何禁止光标向上移动？还有MEMO控件如何判断当前行是空行？

onkeypress 时判断是向上鍵，就发一个向下鍵的消息给它。
lines的长度为1？（only one #13#10）

procedure TForm1.Memo2KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if length(memo2.Lines.Text)=0 then
begin
messagedlg('请输入内容！',mterror,[mbok],0);
exit;
end;

if Key = VK_Return then
begin
.....