Letztes Item einer Lisbox löschen

[toms]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 iLetztesItem: Integer;
begin
  iLetztesItem := ListBox1.Items.Count-1;
  if  iLetztesItem > -1 then
    ListBox1.Items.Delete(iLetztesItem);
end;