Loop com o StringGrid ?? Por Favor

Eu estou com o seguinte problema eu tenho dados em um ListBox e eu gostaria de passar este dados para um StringGrid eu estou fazendo o seguinte e não está dando certo. Se alguem puder me ajudar eu agradeço


ListBox1.ItemIndex := 0;

for i := 0 to (ListBox1.items.Count - 1) do
begin
ii := ii 10;
Temp := ListBox1.Items.Strings[i];
A := Copy(Temp,1,Pos(,Temp)-1);
B := Copy(Temp,Pos(,Temp)+ 1,Length(Temp)-Length(Temp));
C := Copy(Temp,1,Pos(,B)-1);
B := C;
C := Copy(Temp,Pos(´´,Temp)+ 1,Length(B)-Length(B));
StringGrid1.Cells[0,ii] := A;
StringGrid1.Cells[1,ii] := B;
StringGrid1.Cells[2,ii] := C;
ListBox1.ItemIndex := ListBox1.ItemIndex 1;
end;


Obrigado