for i  := 1 to 50 do
begin
    if Not Odd(I) then continue;
    TestProc;
end;


i:=1;
while i <= 50 do
begin
    Inc(i,2);
    TestProc;
end;

これで比較してみたが。動作速度はほとんど変わらず。(0.3%位後者の方が早いが…）