关于listview的OnEdited(200分)

在listview中如何检查用户的输入，发现出错时
不退出编辑状态？

onchanging事件
procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
begin
if change=ctText then
begin
//校验
if 不合要求 then
AllowChange:=False;
end;
end;

接受答案了.