怎样在ListView编辑标签时提示用户出错后重新进行编辑状态？

我想实现在ListView编辑标签的时候，当用户输入非法内宾时提示用户出错后，能再次重新进行编辑状态。就像在Windows重命名文件那样。    以下是我实此功能的代码，希望名位Delphi高手大哥大姐们帮小弟一把，不胜感激。procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: String);
begin
  if S = '' then
  begin
    MessageBox(Handle, '不能为空', nil, MB_OK);
    S := Item.Caption;; // 恢复以前的数据    // 下面的语句行不通
    Item.EditCaption;  // 重新进入编辑状态
end;
end;