Подскажите, срочно

[MS]

Подскажите пожалуйста, может вопрос покажется бональным, но мне нужно перебрав все строки в listbox переименовать их. Вопрос вот в чем:
Как узнать сколько строк в listbox заполнено, чтобы цикл работал с 0-й строки по последнюю заполненую. Спасибо

Вот код. Изменяет имя только на последней заполненой строке.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,n:integer;
begin
n:=listbox1.Count;
for i:=0 to n do begin
listbox1.ItemIndex:=i;
put:=ExtractFileDir(listbox1.Items.text);
ex:=ExtractFileExt(listbox1.Items.text);
if checkbox1.Checked then
nname:=edit1.Text+edit2.Text else
nname:=edit2.Text;
listbox1.Items.Text:=put+'\'+nname+ex;
end;
end;

[x77]

Код:

for i := 0 to n - 1    // это во первых

listbox1.items [i].Text := '..' // это во-вторых

[MS]

Код:

listbox1.items [i].Text := '..' // это во-вторых

Выдает ошибку: Record, object or class type required

[zubr]

Код:

for i:=0 to listbox1.Count-1 do
 begin
  put:=ExtractFileDir(listbox1.Items.Strings[i]);
  ex:=ExtractFileExt(listbox1.Items.Strings[i]);
  if checkbox1.Checked then
  nname:=edit1.Text+edit2.Text
  else
  nname:=edit2.Text;
  listbox1.Items.Strings[i]:=put+'\'+nname+ex;
 end;

[x77]

или вообще

Код:

Items [i] := '..'

[MS]

x77, zubr, спасибо все работает.