добавление массива чисел в базу

[kate158]

Как можно добавить массив чисел с 1 до 23 в базу данных SQL Server через ADO?Этот массив отображается у меня на стринггриде.
Вот код

private
   dbHours: array of double; 
 
procedure TForm1.Set24HourGrids; 
var
 k: integer;
 str3: string;
begin
with StringGrid1 do
  begin
    RowCount:= 26;
    Cells[0,0] := 'Часы;
    Cells[1,0] := 'План';
    for k:=1 to 24 do
      Cells[0,k] := IntToStr(k);
      str3:=Cells[0,k];
      dbHours[k]:= StrToFloat(str3);
   end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  i,j: integer;
  str1,str2: string;
begin
    DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
    DataMod.Command.Execute;
    four.Close;
    four.Open;
end;
  end;

Но,ничего не работает.Может кто-нибудь видит ошибку?

[evg_m]

for k:=1 to 24 do
Cells[0,k] := IntToStr(k);
str3:=Cells[0,k];
dbHours[k]:= StrToFloat(str3);

DataMod.Command.Parameters.ParamByN ame('Hour').Value:=dbHours[k];
DataMod.Command.Execute;
end;

[Serge_Bliznykov]

так нет begin

for k:=1 to 24 do BEGIN

[kate158]

private
   dbHours: array of STRING; 
 
procedure TForm1.BitBtn3Click(Sender: TObject);
var
  i: integer;
begin
SetLength(dbHours,25);
for i:=1 to StringGrid1.RowCount-2 do
   begin
    dbHours[i]:= IntToStr(i);
    DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
    DataMod.Command.Execute;
    four.Close;
    four.Open;
  end;
end;

Во как!Уже разобралась,спасибо!)