关于ListView中items.caption问题

Question

我从数据库中把记录放到listview中，我想通过双击item然后改变其caption.在其onEdited事件中写如下代码：
procedure TfrmBook.MyListViewEdited(Sender: TObject; Item: TListItem;
  var S: String);
var strID,strName:string;
begin
 strID:=PmyRecord(item.Data).ID;
 strName:=PmyRecord(item.Data).Name;
if ChkRepeatValue('Region','RegionName',S) then
 begin
 showMsg('对不起，此名重复，不能重命名！');
 item.Caption:=strName;//如果名称重复就将其原来名称付给它
 item.Update;
 Exit;
 end
在测试中，我修改名字后，如果名称重复，caption的值仍然被改变了。我不知道什么原因？
  希望高手帮忙

Answer 1

在ondblClick事件中写这个代码,并将readonly置为true

Answer 2

var S: String;
给S参数赋值,看看效果！

Answer 3

问题解决。xyqxj(蓝泥) 说的很对