listview添加的问题，不解！

Question

通过历遍memo每一行的内容依次向listview每一行中加入数据，但是目前就是不行，前面都加不是，只有最未一行能取到时间，没有数据，不解，整个代码好像没有错，同时用showmessage也能一行一行的显示memo中的数据啊，不知错在那里，请大家指点一下；
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
titem:tlistitem;
begin
memo1.Lines.Delimiter:=',';
memo1.Lines.DelimitedText:=memo1.Text;//最好有办法让memo的内容不重新排序最好，但又不影响
listview1.Clear;                          后面取数，否则难看
if memo1.Lines.Count>0 then
begin
for i:=0 to memo1.Lines.Count-1 do
//showmessage(memo1.Lines.Strings[i]);
titem:=listview1.Items.Add;
titem.Caption:=datetimetostr(date()+time());
titem.SubItems.Add(memo1.Lines.Strings[i]);
end
else
begin
messagebox(self.Handle,'内容不能为空','错误提示',mb_ok or mb_iconquestion);
end;
end;
end.

Answer 1

for 循环后的程序块应该用begin end 包起来
for i:=0 to memo1.Lines.Count-1 do
begin
//showmessage(memo1.Lines.Strings[i]);
titem:=listview1.Items.Add;
titem.Caption:=datetimetostr(date()+time());
titem.SubItems.Add(memo1.Lines.Strings[i]);
end;