var i:integer;
    UrlStr:string;
begin

//Рефрэш хранимой процедуры
 DataMod.SP_SelectItem.Active := False;
 DataMod.SP_SelectItem.Active := True;

 DataMod.SP_SelectItem.First;

//Цикл по строкам хранимой процедуры 
 For i:= 1  to DataMod.SP_SelectItem.RecordCount do
 Begin
   //Составление HTML-запроса
   UrlStr:='http://localhost/to_late/ItemInsert.php?';
   UrlStr := UrlStr+'Code='+DataMod.SP_SelectItemCode.AsString 
   //Выполнение HTML-запроса
   Web.Navigate(UrlStr);
   DataMod.SP_SelectItem.Next;
 End;
End;