Сделал Вт так Работает
Код:
procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;
const AItem: TListItem; const AObject: TListItemSimpleControl);
var
v:integer;
s:string;
begin
v:= ListView2.ItemIndex ;
s:=IntToStr(v);
Timer1.Enabled:=true;
Memo2.Text:= s;
exit;
end;
procedure TfrmMain.Timer1Timer(Sender: TObject);
Var
s:string;
v:Integer;
begin
s:=Memo2.Text;
v:= StrToint(s);
if v>=0 then
ListView2.Items.Delete( v );
Timer1.Enabled:=False;
end;
Админ: Пользуемся тегами при оформлении кода!