Загрузить stringGrid из массива a

[kta87]

есть массив a, заполняется так

SetLength(a,24); 
 for i:= 0 to 23 do
 begin
  a[i]:= StrToFloat((FindComponent('Edit'+IntToStr(i+1)) as TEdit).Text);
 end;

Подскажите как загрузить последовательно его элементы в stringGrid.Cells[1.a] ?

[BARNEY]

for i:= 0 to 23 do
stringGrid.Cells[1.i]:= a[i];

[kta87]

Спасибо, с небольшими дополнениями скомпилировать удалось...

StringGrid1.Cells[1,i]:= FloatToStr(a[i]);

Применительно к моему вопросу получилось так

for i:= 0 to 23 do
  begin
   a[i]:= StrToFloat((FindComponent('Edit'+IntToStr(i+1)) as TEdit).Text);
  end;
 for i:= 1 to 24 do
  begin
   StringGrid1.Cells[1,i]:= FloatToStr(a[i-1]);
  end;

что упрощается так

for i:= 0 to 23 do
  begin
   a[i]:= StrToFloat((FindComponent('Edit'+IntToStr(i+1)) as TEdit).Text);
   StringGrid1.Cells[1,i+1]:= FloatToStr(a[i]);
  end;