Заполнение StringGrid из ListBox c извлечением имени

[artemavd]

Добрый день! Хочу загрузить колонку в StringGrid из ListBox. Ошибка в том, что берется почему-то именно последнее значение в ListBox-e и оно проставляется во всю колонку в StringGrid. Вдабавок, мне надо убрать расширение у файлов и показывать только имя. Вот мой код:

procedure TForm1.BtnWeekViewClick(Sender: TObject);
var
 ls_1,ls_2: integer;
begin
 for ls_1:=0 to Form1.ListBox2.Items.Count - 1 do
 begin
  for ls_2:=0 to Form1.StrinGrid3.RowCount - 1 do
  begin
   Form1.StringGrid3.Cells[0,ls_2]:=ExtractFileName(Form1.ListBox2.Items[ls_1]);
   Form1.StringGrid3.RowCount:=Form1.ListBox2.Items.Count;
  end;
 end;
end;

Подскажите где у меня ошибка.

P.S. mihali4! Рад видеть Вас снова на нашем форуме!

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 form1.StringGrid1.RowCount:=form1.ListBox1.Items.Count;
 for i:= 1 to form1.ListBox1.Items.Count-1 do
  form1.StringGrid1.Cells[0,i]:=
  Copy(ListBox1.Items[i],1,Pos('.',ListBox1.Items[i])-1);
end;