[sionks]

Ya le Cambie a Extended los integer que tenia, pero aun nada, me sigue marcando el mismo error, el error, que me marca es Invalid Floating point operation.

Ahora R,G,B lo tengo como double:

ahora esta asi el codigo:

Código Delphi [-]
procedure TFImagen.RRayleigh;
var i,j: Integer;
    ExpR,ExpG,ExpB,BaseR,BaseG,BaseB,AuxR,AuxG,AuxB:double;
    P1,PC: PByteArray;
    r,g,b: Double; //contiene los nuevos valores para cada canal
    bmp:TBitmap;
begin
  r:=0; g:=0; b:=0;    //inicializa los canales para evitar ambiguedad
  bmp:=TBitmap.Create;
  bmp.Assign(Bitmap);  //Imagen a la que se aplican los cambios
  for j:= 0 to Bitmap.Height-1 do
    begin
        P1:=Bitmap.ScanLine[j];   //fila actual
        PC:=bmp.ScanLine[j];
        for i:=0 to ancho -1 do
          begin
           BaseR:= (2*(P1[(i*3)+2]))/100;    //Obtienen las Bases
           BaseG:= (2*(P1[(i*3)+1]))/100;
           BaseB:= (2*(P1[(i*3)]))/100;
           ExpR:= -1*sqr(P1[(i*3)+2])/100;     //Obtienen los Exponentes
           ExpG:= -1*sqr(P1[(i*3)+1])/100;
           ExpB:= -1*sqr(P1[(i*3)])/100;
           AuxR:= exp(ExpR);
           AuxG:= exp(ExpG);
           AuxB:= exp(ExpB);
           r:=abs(BaseR*AuxR);      //Obtiene los nuevos Valores
           g:=abs(BaseG*AuxG);      //para los canales
           b:=abs(BaseB*AuxB);
           PC[i*3]:=round(b);              //se Asignan las modificaciones
           PC[(i*3)+1]:=round(g);
           PC[(i*3)+2]:=round(r);
      end;//for ancho
  end;//for alto
  Imagen.Picture.Assign(bmp);
end;