[exap]

Код:

procedure TForm1.BtBtn3Click(Sender: TObject);
var
i,j: integer;
str1,str2: string;
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;

спасибо)