en essayant ça ? ( même 12 mois après je veux essayer :D )



for i:= 0 to imax do
begin
if (NOT odd(i) ) then
/*Code*/
end;