[Robert01]

En el ejemplo que te dieron podrías cambiar algo:

Código Delphi [-]
var num : Integer;  
begin   
num := 1;  
While num <= 100 do   begin    
// se puede hacer de mas formas pero para ejemplificar
num:=num+1;
end;
end;

Si no declaras la variable num te va a dar un error.

Salu2