[<Sergio>]

Tip:

Ahora en tu ciclo interno lo único "pesado" son las multiplicaciones (que actualmente son mas "pesadas" que un salto corto).

Código Delphi [-]
   for ContColumna := 0 to 415 do
   begin
     Renglon[ContColumna*3] := Imagen[ContImagen];
     Renglon[ContColumna*3+1] := Imagen[ContImagen];
     Renglon[ContColumna*3+2] := Imagen[ContImagen];
     Inc(ContImagen);
   end;

Es mejor evitar multiplicaciones y divisiones al tratar cada pixel en la medida de lo posible. Por ejemplo se puede usar un while e incrementar contcolumna:

Código Delphi [-]
   ContColumna := 0;
   while ContColumna<(416{Ancho}*3{RGB}) do
   begin//evitando multiplicaciones
     Renglon[ContColumna] := Imagen[ContImagen];
     inc(ContColumna);
     Renglon[ContColumna] := Imagen[ContImagen];
     inc(ContColumna);
     Renglon[ContColumna] := Imagen[ContImagen];
     inc(ContColumna);
     Inc(ContImagen);
   end;