[[maeyanes]]

El for en IB solo sirve para recorrer los registros devueltos por un select:

Código SQL [-]
for
  select campo1, campo2, ..., campon
    from tabla 
    into :campo1, :campo2, ..., :campo3
do
begin
  /* Codigo a ejecutar por cada registro devuelto por la consulta... */
end

Ahora, podrías usar el while ... do para obtener lo que necesitas:

Código SQL [-]
LenCad = Length(Cad); /* Esto solo es un ejemplo, no estoy seguro si existe la función Length en Interbase */
I = 1;
while I <= LenCad do
begin
  /* Código a ejecutar */
  I = I + 1;
end

Saludos...