[bosterito]

Hola a todos.
El código que puse es un ejemplo. El problema que tengo es la parte del if, porque la matriz tiene algunos elementos con el valor 1.5707963268, pero cuando llega a la parte del if, nunca entra, siendo que debería hacerlo.
A continuación va el código:

Procedure Dibujar( Matriz : Tmatriz1 );
var
 Bloque, Ancho, Alto, i, j : Integer;
 Pendiente, X0, Y0 : Real;
begin
  Bloque := 16;
   Alto := 7;
  j := 1;
  while ( Alto <= (Form1.Image1.Picture.Bitmap.Height - ( (Bloque div 2)+1 ) ) ) do
   begin
    Ancho := 7;
    i := 1;
    while ( Ancho <= (Form1.Image1.Picture.Bitmap.Width - (( Bloque div 2 )+1) ) ) do
     begin
      if ( Matriz[j,i] = 1.5707963268 )then
       begin
        Pendiente := tan(Matriz[j,i]);
        X0 := 1;
        Y0 := 1;
        Obtener_Puntos( X0, Y0, Pendiente );
        X0 := X0-1;
        Graficar ( Ancho, Alto, X0, Y0, clFuchsia, 3 );
       end;
       inc(i);
       Ancho := Ancho + 16;
     end;
    Alto := Alto + 16;
    inc(j);
   end;
   Form1.Label1.Caption := 'ya está';
end;

Saludos.