[exap]

Как можно добавить массив чисел с 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
 for i:=1 to StringGrid1.RowCount-2 do 
   begin
  DataMod.Command.Parameters.ParamByName('Hour').Val ue:=dbHours[i];
DataMod.Command.Execute;
four.Close;
four.Open;
end;
end;

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