Je n'ai pas Delphi sous la main, mais si mes souvenirs sont bons, il est possible de spécifier directement le pas d'incrément :


for i:=0 to 100 step 3 do
begin
//
end;