>>503
そういう風に書いといて

Query1.SQL.Text := StringReplace(Query1.SQL.Text,':PARAM1',IntToStr(i),[]);
Query1.Open;

ってやれば良いんじゃないの？