如題，如何限制Memo最多只能keyin六行?
超過六行時，不允許再keyin

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
if Memo1.Lines.Count > 5 then
begin
ShowMessage('超過六行，不允許再keyin');
Abort;
end;
end;
end;

===================引 用 文 章===================
如題，如何限制Memo最多只能keyin六行?
超過六行時，不允許再keyin

------
將問題盡快結案也是一種禮貌!