[ART]

Код:

Edit1.text := IntToStr(Listbox1.count);

Код:

var
 i, cnt: integer;
begin
 cnt := 0;
 for i := 0 to ListBox1.count - 1 do 
  if Trim(Listbox1.items[i]) = '' then cnt := cnt + 1;
 Edit2.text := IntToStr(cnt);
end;