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*3) do
begin Renglon[ContColumna] := Imagen[ContImagen];
inc(ContColumna);
Renglon[ContColumna] := Imagen[ContImagen];
inc(ContColumna);
Renglon[ContColumna] := Imagen[ContImagen];
inc(ContColumna);
Inc(ContImagen);
end;