每隔一段时间在文本按ENTER

Question

怎样实现每隔一段时间如1S，在MEMO中自动换行，象按ENTER或者别的方法！

Answer 1

加一个Timer控件，间隔设为1000
在onTimer事件中写
Memo1.add('');

Answer 2

放一个timer控件，然后设定好时间间隔。
按照下边的来做：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   memo1.Lines.add('');
end;

Answer 3

可以用:keybd_event API来模拟按下/松开键盘的某个键.

Answer 4

放一个timer控件，然后设定好时间间隔。
按照下边的来做：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   memo1.Lines.add(#13#10);
end;