[MrBabols]

Ну вот я написал, а компилятор пишет: "List index out of bounds".

Var i:integer;
begin
for i := 0 to Form2.ListBox1.Count do
begin
StringGrid1.Cells[i,0]:=Form2.ListBox1.Items[i];

end;