savage - I dont think that makes a difference. In Delphi the final value of the loop cannot be changed after the loop has started:

[pascal]
procedure TForm1.Button2Click(Sender: TObject);
Var
I : Integer;
C : Integer;
begin
C := 100;
For I := 1 to C do
Begin
C := C + 1;
End;
Button2.Caption := IntToStr(C);
end;
[/pascal]

Gives a final value of?