怎么把Listview中的记录前checkbox打钩的记录选出来

procedure   TForm1.Button1Click(Sender:   TObject);
var
I:   Integer;
begin
        Caption:='';
        For   i:=   0   to   ListView1.Items.Count-1   do
        begin
                if   ListView1.Items[i].Checked   then
                        Caption:=Caption+ListView1.Items[i].Caption+',';
        end;
end;

--------------------------------------------------------------------------------------------------------------------

var     i:   Integer;
begin
    For   i:=   0   to   ListView1.Items.Count-1   do
        begin
            if   ListView1.Items[i].Checked   then
                  showmessage(ListView1.Items[i].Caption);
        end;
end;