TOPIC:

Function TFDatos.Cantidad_de_informes_previos(DNI: String): Integer; // Contar la cantidad de estudios con observaciones
Begin
  With TSQLQuery.Create(Nil) Do
    Begin
      Try
        Screen.Cursor := crHourGlass;
        DataBase :=IBConnection2;
        Transaction := SQLTransaction4;
        SQL.Add('Select Count(DNI_PACIENTE) From ESTUDIOS Where (DNI_PACIENTE = ' + QuotedStr( DNI ) + ')' );
        Open;                                                                                                               /// ERROR !!!!
        Result := FieldByName('COUNT').AsInteger;
        Close;
      finally
        Free;
        Screen.Cursor := crDefault;
      end;
    End;
end;